2025年计算机校考理论复习练习

( )。

Sub Procedure()

If Hour(TimeO)>=8 And Hour(Time0)<=12 Then

Debug.Print"上午好！"

Elself Hour(Time))>12 And Hour(Time))<=18 Then

Debug.Print"下午好！"

Else

Debug.Print"欢迎下次光临！"

End If

End Sub

Private Sub funl()

Dim x As Integer y As Integer,t As Integer

x=ImputBox("请输入x: ")

y=ImputBox("请输入y: ")

Do

【1】

x=y

y=t,

Loop While(te O)

Debug Print【2】

End Sub

有如下语句：

①t＝x

②t＝y

③t=x\y

④t=xMody

⑤x

⑥y

⑦t

⑧x

程序中有两个【】，将程序补充完整的正确语句是（）

号后，将 “课程表”中对应的 “课 名”显示在另一个名为 tName 文本框中，Private Sub【】( )

Me!tName =DLookup("课名","课程表","课程编号 = '"& Me!tNum& "'")

End Sub

则程序中【】处应该填写的是 ( )。

程:

Publie Function f（t As String）As String

Dim w,y

w=Instr(t,"a")

y=Right(t,Len(t)-w)

f= UCase(y)

End Function

Private Sub Command1_Click( )

Dim s As String, x As String

s = "I am a student! "

x = f(s)

MsgBox x

End Sub

打开窗体运行后，如果单击按钮，则消息框的输出内容是( )。

号后，将 “课程 表”中对应的 “课名”显示在另一个名为 tName文本框中，

Private Sub【】( )

Me!tName = DLookup("课名","课程表","课程编号 ='" & Me!tNum& "'")

End Sub

则程序中【】处应该填写的是 ( )。