[单选题]

在窗体上画一个命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b >= 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后,窗体上显示的结果是 ______。

A.101

B.6

C.5

D.4

参考答案与解析:

相关试题

在窗体上画一个命令按钮,然后编写如下程序Private Sub Command1

[单选题]在窗体上画一个命令按钮,然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer,b As hiteger a=1 b=2 Print N(a,B)End Sub Function N(x As Integer,y As Integer)As Integer N=IIf(x>y,x,y) End Function 程序运行后,单击命令按钮,输出结果为A.1B.2C.5D.8

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command

    [单选题]在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1 Click() a&=InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Print b&+a& End Sub 程序运行后,单击命令按钮,在两个输入对话框中先后输入12345和54321,程序的输出结果是A.66666B.5432112345C.1.23455e+009D.出错

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写如下代码:Private Sub Command

    [单选题]在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click() 0pen "d:/vb/test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:/vb/test.txt的内容为I am a student.,那么程序运行后,单击命令按钮,其输出结果为______.A.13B.14C.15D.16

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写下列程序 Private Sub Command

    [单选题]在窗体上画一个命令按钮,然后编写下列程序 Private Sub Command3_Click( ) Tcl 2 Tcl 3 Tel 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x; End Sub 程序运行后,单击命令按钮,输出结果为A.2 3 4B.2 5 9C.3 5 4D.2 4 3

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写如下程序: Private Sub Comman

    [单选题]在窗体上画一个命令按钮,然后编写如下程序: Private Sub Commandl_Click( ) Dim a AS Integer,b As Integer a=15 b=2 t N(a,B)End Sub Function N(x As Integer,y As Integer) As Integer N=IIf(x)y,x,y) End Function 程序运行后,单击命令按钮,输出结果为A.1B.2C.15D.8

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写如下程序: Private Sub Comrna

    [单选题]在窗体上画一个命令按钮,然后编写如下程序: Private Sub Comrnand3_Click( ) Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static x As Integer x=x + a Print x; End Sub 程序运行后,单击命令按钮,输出结果为A.2 3 4B.2 5 9C.3 5 4D.2 4 3

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写下列程序Private Sub Command3

    [单选题]在窗体上画一个命令按钮,然后编写下列程序 Private Sub Command3_Click() Tcl 2 Tcl 3 Tcl 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x+a Print x; End Sub 程序运行后,单击命令按钮,输出结果为A.2 3 4B.2 5 9C.3 5 4D.2 4 3

  • 查看答案
  • 在窗体上画一个命令按钮Command1,然后编写如下程序: Private Su

    [主观题]在窗体上画一个命令按钮Command1,然后编写如下程序:Private Sub Command1_Cliek()D.im arr()As IntegerRe Dim arr(3)F.or i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字:")IfVal(x)>4 ThenRc Dim arr(4)arr(4)=xE.nd IfMe.Print(arr(4)-arr(3))E.nd Sub程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为[ ]。

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_Click()F.or I=1 To 2F.or J=1 To IPrint String(I,"Hello");Next JPrintNext IE.nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A.H HH HHB.H HHHHC.HHHHHD.H HH HHHH

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后,窗体上显示的结果是______。A.101B.6C.5D.4

  • 查看答案
  • 在窗体上画一个命令按钮,然后编写如下程序:Private Sub Command