请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
执行下面的程序，击窗体后在窗体上显示的第一行结果是（），第三行结果是（）。
Private Sub Form_click()
Dim mystr, mystr1, mysrr2 As String
mystr1 = "B"
For i = 1 To 3
mystr2 = LCase(mystr1)
mystr1 = mystr1 & mystr2
mystr = mysre & mystr1
Print mystr
mystr1 = Chr(Asc(mystr1) + i)
Next i
End Sub
答案
更多“执行下面的程序，击窗体后在窗体上显示的第一行结果是（），第三行结果是（）。Private Sub Form_cl”相关的问题
第1题
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
第2题
【题目描述】
第 42 题在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
程序运行后，在文本框中显示的内容是（），而在图片框中显示的内容是（） 。
【我提交的答案】：
【参考答案分析】：VisualBasic，级等级考试
【解析】程序运行使文本框内出现“Visual Basic”，这又触发Textl_Change()事件，这个事件的处理程序调用Picturel的Print方法，将字符串输出到图片框，从而在图片框内输出字符串“二级等级考试”。
【我的疑问】（如下，请求专家帮助解答）
第3题
Private Sub Command1_Click() '确定按钮
Static n As Integer
----1----mypwd As String = "123456" '预设密码为自定义常量
n = n + 1
Label2.Visible = True
If ----2---- Then
Label2.Caption = "密码正确"
Else
If n ＜ 3 Then
Label2.Caption = "密码错误!"
Text1.Text = ""
Else
----3----
End If
End If
End Sub
第4题
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后，窗体Form1上的结果。
第5题
A．OpenReport和OpenQuery
B．OpenReport和OpenForm
C．OpenTable和OpenForm
D．OpenTable和OpenView
第11题
A.集中站可实现上/下行全线扣车
B.集中站能实现本联锁区内相应车站的扣车
C.在后备模式下，确认扣车成功后联锁会关闭出站信号机
D.在CBTC模式下，执行扣车成功后，出站信号机不会关闭，显示蓝色
