Form1.
Form2.
End Sub
答案：hide |show
权重：4
难易度：4
题目：4、将下列语句改为用for …each实现。（写在原程序右侧）
dim temp(10) as integer
dim I as integer
for I=0 to 10
temp(I)=I
next
答案：dim temp(10) as integer
答案：POPUPMENU
权重：4
难易度：2
题目：17、以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
a(j)=a1
End If
Next j
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While
If x>amax Then
Amax=x
End If
IfThen
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End lf
NextI
Label2．Caption＝“已成功添加输入项”
Combo1．______CombO1．Text
End lf
End Sub
答案：KeyPress, Combo.List(i), AddItem
权重：3
难易度：4
题目：10、设在工程中有一个标准模块，其中定义了如下记录类型：
Type Books
程序填空
题目：1、select case index '加入一条语句，使得index不为1，2时，
case 1:form1.caption="1" 'caption为other，则该语句应为
case 2:form1.caption="2" '____________
end select
答案：Case dlse：Form1.caption=”other”
Nexti
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
456
34567
2345678
123456789
答案：“23456789”
权重：4
难易度：2
题目：9、在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项 后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动 添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示； 如果存在，则在Label2中给出提示“输入项已在组合框中”。请在处将程序补充完整。
Name As String * 10
Telnum As String * 20
End Type
在窗体上添加一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。请在和_______处填入适当的内容，将程序补充完整。
Private Sub Command1_Click( )
Dim B As ______________
Open “c:\Person.txt” For Output As #1
=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
___________, ,B.TelNum
Close #1
End Sub
Private Sub Command1_Click()
For i=0 To 3
If=True then
opt=Option1(i).Caption
Hale Waihona Puke End IfNextSelect Case
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Text2.Text)
权重：3
难易度：3
题目：15、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文框中输入任何字符时，命令按钮Command1变为可用。请在[1]处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
权重：4
难易度：2
题目：2、如下定义一含10个元素的一维数组kk,并且对每一元素赋初值为1，请填空：
____________
dim I as integer
for I=0 to 9
____________
____________
答案：dim kk(9) as integer
kk(i)=1
nextI
权重：4
IF __________Then Min=N
S=S+N
Next I
S=__________
P=S/18
Print"最高分："；Max
Print"最低分："；Min
Print"最后得分："；P
END Sub
答案：N>Max ,N<Min, S-Max-Min
权重：4
难易度：3
题目：13、在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在处填入适当的内容，将程序补充完整。
数并求出它们的和。请填空。
Private Sub Commandl_C1ick()
Fori＝1To 20
x＝Int(____________*200+100)
If_______ ＝0 Then
Print x
S＝S十 _________ End If
NextI
Print “Sum＝”：S
End Sub
Command1.Enabled=False
End Sub
Private Sub Text1_ [1] ()
Command1.Enabled=True
End Sub
答案：CHANGE
权重：4
难易度：2
题目：16、在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。Form1.Pmenu
Max=a
Min=a
IF b>_______Then Max=b
IF b<_______ Then Min=b
IF _______ Then Min=c
IF_______ Then Min=c
Print"最大数为："；Max
Print"最小数为："；Min
Ene Sub
答案：a, a , c>Max, c<Min
答案：Rnd, xMod 5, x
权重：4
难易度：3
题目：8、在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程
PRiVate Sub Commandl_C1icK()
Dim As String
a=_____
For i ＝1 To 5
Print Space(6—i)；Mid$3(a，6—i，2*i—1)
dim I
For ieach I IN TMP
temp(I)=I
next
权重：4
难易度：4
题目：5、为了在运行时把当前文件夹的图形文件picfile.jpg装入图片框Picture1中,所使用的语句为。
答案: Picturel.Picture = LoadPicture("picfile.jpg")
For j=
If a(i)a(j) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
答案：0 To 9，i+1 To 10, >=
权重：4
难易度：3
题目：7、以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的
End Sub
答案：X>=0, X
权重：4
难易度：3
题目：18、在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在处填入适当的内容将程序补充完整。
Private Sub Form_load()
权重：3
难易度：4
题目：12、下面是一个体操评分程序，20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)
Private Sub Command1_Click()
Max=0
Min=10
For I=1 TO 20
N=Val(InputBox("请输入分数："))