运行下列程序:Private Sub form_Click()For i = 1 To 4t = t * 10 + is = s + tNext iPrint
运行下列程序:
Private Sub form_Click()
For i = 1 To 4
t = t * 10 + i
s = s + t
Next i
Print s
End Sub
单击窗体后,则输出结果是()。
A.1234
B.4321
C.1370
D.4444
运行下列程序:
Private Sub form_Click()
For i = 1 To 4
t = t * 10 + i
s = s + t
Next i
Print s
End Sub
单击窗体后,则输出结果是()。
A.1234
B.4321
C.1370
D.4444
下列程序运行后的输出结果是______。
Private Sub f(k,s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
(31 )在窗体上画 1 个命令按钮,名称为 Command1 ,然后编写下列程序:
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox(" 请输入 :")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序 , 首先单击窗体 , 然后单击命令按钮 , 在输入对话框中输入 5 , 则程序的输出结果为 () 。
A ) 0
B ) 5
C ) 15
D )无任何输出
设有如下程序: Option Base 1 Private Sub Form. Click() Dim a(5)As String,i As Integer For i=1 To 5 a(i)=Chr(Asc("A")+i) Call f(a,i) Next i End Sub Sub f(ta()As String,n As.Integer) Dim i As Integer For i=1 To n Print ta(i); Next i Print End Sub 对上述程序.以下叙述中正确的是()。
A.程序有错,因为在过程f的定义中数组参数格式不正确
B.程序可正常运行,输出内容的第一行是一个字母“A”
C.程序可正常运行,输出内容的第一行是一个字母“B”
D.程序可正常运行,输出内容的第一行是数字65
A.0
B.5
C.15
D.无任何输出
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 Then m=m+n\3 Next n Print n End Sub 程序运行后,如果单击命令按钮,则窗体上显示的内容是______。
A.15
B.18
C.21
D.24
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a$="321":b$="abc" For j=1 To 5 Print Mid$(a$,6 -j,1)+Mid$(b$,j,1); Next i End Sub 程序运行后,输出的结果是;
A.a1b2c3
B.ab1c23
C.c1b2a3
D.a12bc1
在窗体上添加—个文本框,名为Text1,然后编写如下的Load事件过程,则程序的运行结果是 Private Sub Form_Load() Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End Sub
A.在文本框中显示120
B.文本框仍为空
C.在文本框中显示480
D.出错
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序: Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox("请输入:") If Flag Then Printf(intNum) End If End Sub Function f(x As Integer)As Integer If X<10 Then Y=X Else Y=X+10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Flag=True End Sub 运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为()。
A.0
B.5
C.15
D.无任何输出
阅读程序:
Function Fun(a As Integer)
Static c,
b=0:b=b+2:c=c+2
F=a*b*c
End Function
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 2
Print Fun(A);
Next
End Sub
运行上面的程序,单击命令按钮,输出结果为
A.8 16
B.9 18
C.10 20
D.7 14
阅读程序: Function Fun(a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click() Dim a As Integer a=2 For i = 1 To 2 Print Fun (a); Next End Sub 运行上面的程序,单击命令按钮,输出结果为
A.8 16
B.9 18
C.10 20
D.7 14