单项选择题

设有下列程序：
Private Sub Form_Click()
X=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5=0 Then
a=a+y
x=Y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )

A．100
B．50
C．120
D．70

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text= Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( )

A．vbVB
B．不显示任何信息
C．VB
D．出错

单项选择题

在窗体上画一个命令按钮(名称为Command1)，并编写下列代码： Function Funl(ByVal a As Integer，b As Integer)As Integer Dim t As Integer t=a-b b=t+a Funl=t+b End Function Private Sub Command1_Click() Dim X As Integer x=10 Print Funl(Funl(X,(Funl(x,x-1))),x-1) End Sub 程序运行后．单击命令按钮，输出结果是( )

A．10
B．0
C．11
D．21

相关试题