A.3
B.5
C.6
D.8
[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End SubA.2.25 3.75B.1.5 2.25C.1.5 0.75D.0.75 1.5
[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b)Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End SubA.2.25 3.75B.1.5 2.25C.1.5 0.75D.0.75 1.5
[单选题]下面程序段,运行后的结果是Private Sub Command1_ClickD.im b%(1 To 4), i%, t#F.or i=1 To 4b(i) =iNextt=Tof(b() )Print "t="; t,E.nd SubF.unction Tof(a() As Integer)D.im t#, i%t=1F.or i=2 To UBound(a)t=t a(i)NextTof=tE.nd FunctionA.t=18B.t=24C.t=30D.t=32
[单选题]下面程序段,运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4),i%,t# For i=1 To 4 b(i) =i Next t=Tof(b() ) Print"t=";t, End Sub Function Tof(a() As Integer) Dim t#,i% t=1 For i=2 To UBound(a) t=t*a(i) Next Tof=t End FunctionA.t=18B.t=24C.t=30D.t=32
[单选题]下面程序的运行结果是 Private Sub Command1_Click() x=1:y=1 For i=1 To 3 x=x+y:y=y+x Next i:print x,y End SubA.6 6B.5 8C.13 21D.34 35
[单选题]运行下列程序:Private Sub Command1_Click( )a = Val(InputBox("a = "))Print fun1(a)E.nd SubPrivate Function fun1(b)If b > 0 Thenfun1 = 10E.lseIf b = 0 Thenfun1 = 9E.lsefun1 = 8E.nd IfE.nd Function单击按钮后从键盘为变量a输入数据3,输出的结果是( )。A.3B.8C.9D.10
[单选题]运行下列程序:Private Sub Command1_Click()a = 100b = 24a = a Mod bb = b / aa = b - aD.ebug.Print aE.nd Sub单击Command1命令按钮后,则在立即窗口上输出结果是()。A.2B.24C.50D.100
[单选题]下列程序段的执行结果为 Private Sub Command1_Click() a=InputBox("请输入a值") c="您要查询的是" &IIf(a>0,"天气"," ") &IIf(a<0,"电话号码"," ") &IIf(a=0,"邮编"," ") Text1.Text=c End Sub程序运行后,如果从键盘上输入"16",则在文本框显示的内容是______。A.您要查询的是天气B.您要查询的是邮编C.您要查询的是电话号码
[单选题]运行下列程序:Private Sub Command1_Click( )x = 3If x < 3 Then Print x £« 3;If x < 4运行下列程序:Private Sub Command1_Click( )x = 3If x < 3 Then Print x + 3;If x < 4 Then Print x + 4;If x < 5 Then Print x + 5;If x < 6 Then Print x + 6;PrintE.nd Sub单击Co
[单选题]运行下列程序:Private Sub Command1_Click( )x = "祝你成功"y = "1234"F.or i = 1 To 4z = z + Mid(x, i, 1) + Left(y, 1)Next iPrint zE.nd Sub单击Command1命令按钮后,则在窗体上显示的结果是( )。A.祝你成功1234B.祝1你2成3功4C.1234祝你成功D.祝1你1成1功1