填空题

执行下面的程序，当输入3时，输出的结果是 【11】
Private sub Command1_Click()
i=2
j= InputBox(" j = ")
On j GoTo 20,30,40,50
i=i+2
20:i=i+2
30:i=i+2
40:i=i+2
50:i=i+2
Print i
End Sub

【参考答案】

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

填空题
在Visual Basic 程序启动运行中设置一个封面窗口，显示一些有意义的信息，要求显示时间5秒。 Sub dlys(ByVal n As Single) Dim tl As Single Dim t2 As Single t1 = Timer Do t2 = Timer If t2 ＜ t1 Then t2 = t2 + 86400 If t2 - tl ＞ n Then Exit Do 【12】 Loop End Sub Sub main( ) Form2. Show dlys 【13】 【14】 Form1. Show End Sub
填空题
在Visual Basic工程prjl中包含有两个窗体，窗体form1(主窗体)上有两个命令按钮command1和 command2，一个文本控件text1；窗体dialog是一个对话窗体，窗体包含两个命令按钮OK和Cancel，一个文本控件text1和一个标签控件labe11。 编写程序要求实现的功能为：窗体form 1上command1的caption属性值为name，程序运行后，当单击 eommand1时，弹出对话窗体dialog，其labe11控件中的提示信息为“please input your name：”，要求用户输入自己的姓名。如果单击OK按钮，保存当前输入的内容并返回form1界面，command1的caption属性值为email。若再次单击command1命令按钮，仍然出现dialog对话窗体，此时dialog的labe11提示用户输入自己的email，当用户输入email后，单击“确定”按钮，保存当前输入的内容并返回form1界面；如果单击Cancel按钮，则输入内容无效并返回form1。 Private Sub Command1_Click() Dialog. Text1. Text = Dialog. Show End Sub Private Sub Command2_Click() Text1. Text = email: + Dialog. email + name: + Dialog. fname End Sub Private Sub Form_ Load() Command1. Caption = name 【7】 . Caption = please input your name: Dialog. i = 0 End Sub Option Explicit Public i As Integer Public email As String Public fname As String Private Sub CancelButton_Click() i=0 email = fname = Forml. Command1. Capt ion = name Dialog. Hide Form1. Show End Sub Private Sub OKButton_ Click() 【8】 Select Case i Case 1: email = Text1. Text Labe11. Caption = please input your email: 【9】 . Caption = email Case 2: fname = Text1. Text 【10】 . Caption = name i=0 End Select Dialog. Hide Form1. Show End Sub
相关试题