填空题

设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 _。程序运行后，单击窗体，输出结果为 _。

【参考答案】

求整数 A~H 之和 , CF

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer) As IntegerIf X < 20 Then Y = X Else Y = 20 + X End If func = Y End FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y AsSingle)SW = FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW = True End SubPrivate Sub Command1_Click() Dim intNum As Integer intNum = InputBox( )If SW Then Print func(intNum) End If End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为______。

A．输出0
B．输出25
C．输出45
D．无任何输出

填空题

已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数Dim【】 For i=65 To 90pp(i) =0Nextx$=InputBox( Enter a string ，x$)x$=UCase$(x$)For i=1 To【】 n=Asc(Mid$(x$，i，1))If n ＞=65 And n ＜=90 Then【】 End IfNext iFor i=65 To 90If pp(i) ＞0 ThenPrint Chr$(i)；pp(i)End IfNext

相关试题