请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载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 a
a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后，单击窗体后，在窗体显示的结果是：
第2题
在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dima As Variant
a=Array(1，2，3，4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是()。
A、4321
B、12
C、34
D、1234
第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题
Option base 1 Private sub command1_click() Dim a(3,3) For I=1 to 3 For j=1 to 3 If j＞1 and I＞1 then a(I,j)=a(a(I-1,j-1),a(I,j-1))+1 else a(I,j)=I*j end if print a(I,j);” “; next j print next I end sub 程序运行后，单击命令按钮后，在窗体显示的结果是？
第6题
填空题。
(1)要使下面的程序在屏幕上显示1，2，34，则从键盘输入的数据格式应为_________。
(2)在与上面程序的输入相同的情况下，若将程序中的第7条语句修改为
则程序的屏幕输出为________。
(3)要使上面程序的数据输入格式为1，2，34，输出语句在屏幕上显示的结果也为1，2，34，则应将程序中的第6条语句修改为________。
(4)在(3)的程序基础上，程序仍然输入1，2，34，若将程序中的第7条语句修改为
则程序的屏幕输出为________。
(5)要使上面的程序无论用下面哪种格式输入数据，在屏幕上的输出结果都为1，2，34，则应将程序中的第6条语句修改为________。
第8题
PrivateSubForm_Click()
DimxAsInteger
StaticyAsInteger
x=x+2
y=y+3
Form1.Print"x=";x,"y=";y
EndSub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
第9题
程序代码为：
Public sub proc(a%())
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I<2
End sub
Private sub command1_click()
Dim m%,I%,x%(10)
For I=0 to 4 : x(i)=I+1 : next I
For I=1 to 2 : call proc(x) : next I
For I=0 to 4 : print x(i); : next I
End sub
程序运行后，单击命令按钮后，在窗体显示的结果是：
第10题
A.Form1.Name="VB程序"
B.Form1.Title="VB程序"
C.Form1.Caption="VB程序"
D.Form1.Text="VB程序"
第11题
阅读下列程序并写出程序运行结果。
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上的结果。
