单项选择题

下列程序执行后，变量S的值为______ 。
Dim s As Long，X As Integer
s=0
X=1
Do While x＜10
s= s+ x
x=x+2
Loop
Print s

A) 10
B) 25
C) 50
D) 100

<上一题目录下一题>

热门试题

单项选择题

有如下的一个函数过程：Function fn(ByVal num As Long) Dim k As Long k= 1 num = Abs(num) do while num k = k * (num Mod 10) num= num 10 Loop fn=kEnd Function 以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字123，该过程的运行结果是 ______。Private Sub Command1_Click() Dim n As Long Dim r As Long n = CLng(n) r = fn(n) Print rEnd Sub

A) 12
B) 6
C) 3
D) 1

单项选择题

在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则横线处合适的语句是( )。 Private Sub Form_Click() Open C: SDat.txt For Output As I For i=1 To 5 StuNo=InputBox( 请输入学号 ) StuName=InputBox( 请输入姓名 ) StuEndg=Val(InputBox( 请输入英语成绩 )) Next i Close #1 End Sub

A)Input#1,StuNo,StuName,StuEndg
B)Put#1,StuNo,StuName,StuEndg
C)Write#1,StuNo,StuName,StuEndg
D)Get#1,StuNo,SmName,StuEndg

相关试题