请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：
接收从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。
Privme Sub Command32_Click()
max=0
max_n=0
For i=1 To 10
num=Val(InputBox("请输入第"&i&"个大于0的整数："))
If______Then
max=num
max_n=i
End If
Next i
MsgBox("最大值为第"＆max_n&"个输入的"&max)
End Sub
程序空白处应该填入的表达式是
A．num＞i
B．i＜max
C．num＞max
D．num＜max
答案
更多“窗体中有命令按钮Command32，其Click事件代码如下。该事件的完整功能是：接收从键盘输入的10个大于0”相关的问题
第1题
A.OpenQuery
B.OpenReport
C.OpenWindow
D.OpenForm
第4题
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（）
Text1.Text=Left（UCase（SaveAll），4）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
SaveAll=SaveAll+Chr（KeyAscii）
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
第5题
窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
Private Sub Command1 Click（）
Static x As Variant
n=0
x=Array(1，2，3，4，5，6，7，8，9，10)
While n＜=4
x(n)=x(n+5)
Print x(n)：
n=n+1
Wend
End Sub
运行程序，单击命令按钮Command1，窗体上显示的是（）。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
第6题
A.108
B.18
C.810
D.出错
第7题
(1)在窗体的“窗体页眉”中距左边0．4厘米、距上边1．2厘米处添加一个直线控件，控件宽度为10．5厘米，控件命名为“tLine”。
(2)将窗体中名称为“lTalbel”的标签控件上的文字颤色改为“蓝色”(蓝色代码为16711680)、字体名称改为“华文行楷”、字体大小改为22。
(3)将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线：并且只保留窗体的关闭按钮。
(4)假设“tStud”表中，“学号”字段的第5位和第6位编码代表该生的专业信息，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理”专业。设置窗体由名称为“tSub”的文本框控件的相应属性，使其根据“学号”字段的第5位和第6位编码显示对应的专业名称。
(5)在窗体中有一个“退出”命令按钮，名称为“CmdqQuit”，其功能为关闭“fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tStud”。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。
第8题
在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。
A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10
第10题
Prirate Sub Form_L．aad()
Labell．Caption=“欢迎”
Timer1．Enabled=False
Timer1．Interval=【 】
Commandl．Caption=“开始闪烁”
End sut)
Private Sub Timer1_rrimer()
Label1．visible=【 】
Emi sub
PTivate Sub Commandl_Click()
【 】
End sub
.jpg){kind=spacer}
