-
1在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后,单击命令按钮,输出结果为。
A.12
B.15
C.17
D.18
开始考试点击查看答案 -
2在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()a=0For i=1 To 2For j=1 To 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后,单击命令按钮,输出结果是。
A.0
B.2
C.3
D.4
开始考试点击查看答案 -
3设有命令按钮Command1的单击事件过程,代码如下:Private Sub Command1_Click()Dim a(3,3)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序,单击命令按钮,输出结果是。
A.20
B.7
C.16
D.17
开始考试点击查看答案 -
4设有命令按钮Command1的单击事件过程,代码如下:Private Sub Command1_Click()Dim a(30)As IntegerFor i=1 To 30a(i)=Int(Rnd*100)NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem>90 Then Exit ForNextEnd Sub对于该事件过程,以下叙述中错误的是。
A.a数组中的数据是30个100以内的整数
B.语句For Each arrItem In a有语法错误
C.If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数
D.If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环
开始考试点击查看答案 -
5在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程:Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1,3y=x*xCase Is>=10,Is<=-10y=xCase -10 To 10y=-xEnd SelectEnd Sub程序运行后,在文本框中输入3,然后单击命令按钮,则以下叙述中正确的是。
A.执行y=x*x
B.执行y=-x
C.先执行y=x*x,再执行y=-x
D.程序出错
开始考试点击查看答案 -
6窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号(、)处应填入的内容是。Private Sub Text1_LostFocus()Call CheckInput(Text1,500)End SubPrivate Sub Text2_LostFocus()Call CheckInput(Text2,1000)End SubSub CheckInput(t As 、,x As Integer)If Val(t.Text)>x ThenMsgBox"请重新输入!"End IfEnd Sub
A.Text
B.SelText
C.Control
D.Form
开始考试点击查看答案 -
7在窗体上画1个文本框,其名称为Text1,然后编写如下过程:Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)End Sub程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为。
A.AA
B.AB
C.AC
D.AD
开始考试点击查看答案 -
8为了使列表框中的项目呈多列显示,需要设置的属性为。
A.Columns
B.Style
C.List
D.MultiSelect
开始考试点击查看答案 -
9在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("请输入:")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X<10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为。
A.0
B.5
C.15
D.无任何输出
开始考试点击查看答案 -
10在菜单编辑器中建立1个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程:Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=1 ThenPopupMenu Menu0End IfEnd Sub则以下叙述中错误的是。
A.该过程的作用是弹出一个菜单
B.单击鼠标右键时弹出菜单
C.Menu0是在菜单编辑器中定义的弹出菜单的名称
D.参数X、Y指明鼠标当前位置的坐标
开始考试点击查看答案