题目中提供的“移动”按钮控件Command1的Click事件的源代码如下:
Private Sub Command1_Click()
Dim nCount As Integer
nCount=CInt(Text1.Text)
If(nCount>=?)Then
HScrolll.Value=HScrolll.Max
?
Else
If (nCount<=HScrolll.Min) Then
?=HScrolll.Min
MsgBox("文本框中的数字太小")
Else
HScrolll.Value=?
End If
End If
End Sub
注意:不能修改程序中的其他部分,不能修改控件的属性,最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。
第1题
到第二个文本框(text2),而不是用TAB键来切换。请填空。
Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode [12] vbKeyRetum Then
Text2.SetFocus
End If
End Sub
第2题
下列程序的执行结果是______。
PrivateFunctionP(NASInteger)
Fori=1 To N
SUM=SUM+i
Nexti
P=SUM
End Function
Privte Sub Commandl_Click()
S=P(1)+P(2)+P(3)+P(4)
Print S
End Sub
第3题
。
Ptivate Sub Form_load()
Dima(1T05)As Integer,n=5
a(1)=20:a(2)=25:a(3)=10:a(4)=40:a(5)=15
______
Forz=1 To n-m
If a(z)>a(z+1)Then
t=a(z)
a(z)=(z+1)
a(z+1)=t
End If
NextZ
Next
第5题
。为使窗体form1成为运行该工程时的启动窗体,在开发过程中,应在“工程-工程1属性”对话框内的“通用”标签下,在“启动对象”的下拉列表框中,选择所需启动的窗体名______
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!