填空题

设有如下程序： 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
<上一题 目录 下一题>
热门 试题

填空题
在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。Private Sub Command1_Click()CommonDialog1．Filter=【 】 CommonDialog1．ShowOpenPCSTextBox．Text=【 】 End Sub
单项选择题
有如下程序：Private Sub Command1_Click()Dim k As Integer，m As IntegerDim op As Integerk=4：m=1op：PPC(k，m)：Print op；op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer)Static m As Integer，i As Integerm=0：i=2i=i+m+1m=i+a+bPPC=mEnd Function程序运行后，输出的结果为( )。
A．4 6
B．6 6
C．8 8
D．10 12
相关试题