填空题
下列程序的输出结果为______。
Sub OnGousbGotoDemo()
Dim Number,MyString
Number=2
On Number GoTo Line1, Line2
Exit Sub
Line 1:
MyString="In Line 1"
Print MyString
Line2:
MyString="In Line2"
Prnt MyString
End Sub
【参考答案】
In Line2
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。请在空白处填入适当的内容,将程序补充完整。 Private Sub Form_Click() Dim x As Single, amax As Single, amin As Single x=InputBox( Enter a score ) amax=x amin=x Do, While______ If x>amax Then aman=X End If If______Then amin=x End If x=InputBox( Enter a Score ) Loop Pnnt Max= ; amax, Min= ;amin End Sub
点击查看答案
填空题
下列程序用IIf函数改写为______。 x=b If a>b Then x=a
点击查看答案
相关试题
以下程序的功能是:生成20个200到30...
定义动态数组需要分两步进行,首先在模块级...