请输入或粘贴题目内容
搜题
拍照、语音搜题，请扫码下载APP
题目内容
（请给出正确答案）
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（）
Text1.Text=Left（UCase（SaveAll），4）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
SaveAll=SaveAll+Chr（KeyAscii）
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
答案
更多“在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：DimSa”相关的问题
第1题
在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load（）
Open"d:\temp\dat.txt"For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
lf【13】=13 Then
If UCase（Text1.Text）=______Then
Close 1
End
Else
Write#1,______
Text1.Text=""
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
第2题
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
第3题
A．Private Sub Text1_Change（）
Command1.Caption = "计算机等级考试"
End Sub
B．Private Sub Command1_ Click （）
Caption = "计算机等级考试"
End Sub
C．Private Sub Form1_ Click （）
Text1.Caption = "计算机等级考试"
End Sub
D．Private Sub Command1_ Click （）
Text1.Text = "计算机等级考试"
End Sub
第5题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。
A．4
B．5
C．6
D．7
第6题
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是【 】。
第7题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static A As Integer
Static B As Integer
Cls
B=2
B=B+3
A=3+A
printA，B
EndSub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为()。
A、35
B、66
C、95
D、33
第8题
在Visual Basic中最基本的对象是 ______，它是应用程序的基石。
A．标签
B．窗体
C．文本框
D．命令按钮
第9题
A．7 9
B．34 0
C．9 7
D．死循环
第10题
在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的是（）。
A. 2
B. 3
C. 4
D. 5
