11.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 Do Until num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A、1 3.4 5.8 B、1 3 5 C、1 4 7 D、无数据输出
28.单击命令按钮时,下列程序代码的执行结果为____。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer X=12:y=34 Call Procl(x,y) Print x & ":" & y End sub A、12 34 B、2 34 C、2 3 D、12 3
A B C D
29.在窗体上画一个命令按钮,名称为C。程序运行后,如果单击命令按钮,则显示一个输入 对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断 所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能 的代码是 A、Private Sub command1_Click() x = InputBox("请输入整数") a = f1(Val(x)) Print a End Sub Function f1(b As Integer) As Integer If b Mod 2 = 0 Then f1 = 0 Else f1 = 1 End If End Function B、Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End IF End Function C、Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Function D、Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function
A B C D
30.单击命令按钮时,下列程序代码的执行结果为21,则空白处应填入_____。 Private Function FirProc(x As Integer,y As Integer,z As Inetger) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Function Private Sub Command1_Click( ) Dim a As Integer,b As Integer,c As Integer a=2:b=3:c=4 Print _____ End Sub A、SecProc(a,c,b) B、FirProc(c,b,a) C、SecProc(c,b,a) D、FirProc(a,b,c)
6.以下程序判断从InputBox中输入的三个数,如果都为正,显示“POSITIVE!”;如果都为负,显示“NEGATIVE!”;否则显示“NEITHER!”。阅读下列程序,请在____填上正确的内容。 private Sub Command1_Click() a=Val(InputBox("")) b=Val(InputBox("")) c=Val(InputBox("")) If____Then Print "POSITIVE!" ElseIf____Then Print "NEGATIVE!" Else Print "NEITHER!" End If End Sub
9.将下列程序补充完整,程序的功能是将文本框中输入的十进制数转换成二进制数。 Private Sub Command1_Click() Text1.text="" n=Val(Text1.Text) Do k=n Mod 2 n=n \ 2 nk=____ ____ Label1.Caption=nk End Sub
6.以下程序判断从InputBox中输入的三个数,如果都为正,显示“POSITIVE!”;如果都为负,显示“NEGATIVE!”;否则显示“NEITHER!”。阅读下列程序,请在____填上正确的内容。 private Sub Command1_Click() a=Val(InputBox("")) b=Val(InputBox("")) c=Val(InputBox("")) If____Then Print "POSITIVE!" ElseIf____Then Print "NEGATIVE!" Else Print "NEITHER!" End If End Sub
9.将下列程序补充完整,程序的功能是将文本框中输入的十进制数转换成二进制数。 Private Sub Command1_Click() Text1.text="" n=Val(Text1.Text) Do k=n Mod 2 n=n \ 2 nk=____ ____ Label1.Caption=nk End Sub
11.下列程序的功能是控制窗体的显示与隐藏,请在____、 ____填上正确答案。 Private Sub Form_Click() Dim Msg As Integer Form1.____ MsgBox"Choose Ok to make the form reapear." Form1.____ End Sub
输入答案,中间不含空格:
12.上一题
输入答案,中间不含空格:
13.下面的程序用“冒泡”法将数组a中的10个整数升序排列,请在____、____、 ____处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,87,875,273,823) For i=____ For j=____ If a(i)____ a(j) Then a1=a(j) 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