单项选择题

设有以下程序：
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)，并编写如下代码： Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ b End Function Private Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1) End Sub 程序运行后，单击命令按钮，输出结果是（）。

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

单项选择题

设有如下通用过程： Public Function Fun (xStr As String) As String Dim tStr As String，strL As Integer tStr=- strL=Len(xStr) i=strL 2 Do Whilei＜=strL tStr=tStr &id(xStr,i+1，1) i=i+1 Loop Fun=tStr & tStr End Function 在窗体上画—个名称为Text1的文本框和—个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_ Click() Dim S1 String S1= ABCDEF Text1.Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是（）。

A．ABCDEF
B．abcdef
C．defdef
D．defabc

相关试题