填空题

窗体上命令按钮Command1的事件过程如下:
Private Sub Command1_Click()
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序,第三次单击命令按钮Command1时,输出结果为______。

【参考答案】

P
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程: Private Sub Command1_Click() Dim inData As String Text1.Text= Open d: myfile.txt For (7) As #1 Do While (8) Input #1.inData Text1.Text=Text1.Text+inData Loop Close #1 End Sub 程序的功能是:打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。
填空题
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程: Private Sub Command1_Click() s$=InputBox( 请输入一个字符串 ) Text1.Text=s End Sub Private Sub Text1_Change() Label1.Caption=Ucase(Mid(Text1.text,7)) End Sub 程序运行后,单击命令按钮,显示一个输入对话框,如果在其中输入字符串 Visual Basic ,则在标签中显示的内容是______。
相关试题
  • 下面的程序执行时,可以从键盘输入一正整数...
  • 在窗体上画一个名称为Command1的命令按钮...
  • 在窗体上画一个命令按钮,其名称为Command...