新建一个工程,在窗体中创建两个文本框,其名称分别为Text1和Text2。编写一个事件过程,实现在程序运
注意:存盘时必须存放在考生文件夹下,工程文件名为ylc4.vbp,窗体文件名为ylc4.frm。
注意:存盘时必须存放在考生文件夹下,工程文件名为ylc4.vbp,窗体文件名为ylc4.frm。
第1题
n及命令按钮的单击事件过程如下,请填空。
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox(“输入数据”))
Text1=Str(fun(x)+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
Ifn Mod 3=0 Then
n=n+n
Else
n=n*n
End If
________=n
End Function
当单击命令按钮,在输入对话框中输入2时,文本框中显示的是_______。
第2题
和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示“已成功添加新输入项。”,如图所示。如果输入的项目已存在,则在Label2中给出提示“输入项已在组合框中。”。请填空。
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
For i=0 To Combo1.ListCount-1
If Combo1.Text=【 】Then
Label2.Caption="输入项已在组合框中。"
Exit Sub
End If
Next i
Label2.Caption="已成功添加新输入项。"
Combo1.【 】Combo1.Text
End If
End Sub
第3题
两个数相比较(第1个数与第2个数,第2个数与第3个数……如此重复),若前面的数较大,则这两个数交换位置。这样执行一遍后,最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续,可将数组排序,请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a()
a=Array(678,45,324,528,439,387,87,875,273,823)
Fori=【 】
Forj= 【 】
If a(j)【 】a(j+1)Then
a1=a(j)
a(j)=a(j+1)
a(j+1)=al
End lf
Nextj
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
第4题
),代码如下。请填入适当的内容,将程序补充完整。
Private Sub Combo1_Cliek()
TextFontName=ComboList(ComboListlndex)
End Sub
Private Sub Form_Load()
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
&8226;Addltem"楷体_GB2312""
&8226;Listlndex=0
End With
Text1.【 】30
Textl. 【 】=Combol.List(0)
End Sub
第6题
滚动条中的滚动框向右移动与该数相等的刻度,但如果超过了滚动条的最大刻度,则不移动,并且显示“文本框中的数值太大”;如果输入的是负数,则滚动框向左移动与该数相等的刻度,但如果超过了滚动条的最小刻度,则不移动,并且显示“文本框中的数值太小”,如图18所示。
题目中提供的“移动”按钮控件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
注意:不能修改程序中的其他部分,不能修改控件的属性,最后把修改后的程序以原来的文件名存盘。存盘时必须存放在考生文件夹下。
第7题
到第二个文本框(text2),而不是用TAB键来切换。请填空。
Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode [12] vbKeyRetum Then
Text2.SetFocus
End If
End Sub
第8题
下列程序的执行结果是______。
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
第9题
。
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
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!