题目内容
（请给出正确答案）
在窗体上画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个文本框，其名称分别为Comman…”相关的问题
在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是()。
A．15
B．20
C．25
D．35
A)This．ThisForm．Text1．Value
B)This．Parent．Parent．Text1．Value
C)Parent．Parent．Text1．Value
D)This．Parent．Text1．Value
设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（）
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp（Button As Integer, _
Shift As Integer, X As Single, Y As Single）
Print "程序设计"
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计
Private Sub Text1_LostFocus（）
Call CheckInput（Text1，500）
End Sub
Private Sub Text2_LostFocus（）
Call CheckInput（Text2，1000）
End Sub
Sub CheckInput（t As ？，x As Integer）
If Val（t.Text）＞x Then
MsgBox"请重新输入!"
End If
End Sub
A．Text
B．SelText
C．Control
D．Form
（46）
A. 可划分为2个有效等价类，2个无效等价类
B. 可划分为1个有效等价类，2个无效等价类
C. 可划分为2个有效等价类，1个无效等价类
D. 可划分为1个有效等价类，1个无效等价类
A ） Max
B ） Min
C ） SmallChange
D ） LargeChang
在Windows中，下列描述不正确的是
A．工具栏提供了常用的工具按钮
B．可以任意改变对话框的大小
C．菜单中某个命令的文字颜色为浅灰色，表示该命令在当前状态下不能使用
D．任务栏可放在屏幕的左侧、右侧、顶端或底端
A．基础设施工程．房屋建筑的地基基础工程和主体工程，为设计文件规定的该工程的合理使用年限
B．屋面防水工程．有防水要求的卫生间和外墙面的防渗漏，为3年
C．供热与供冷系统，为1个采暖期．供冷期
D．电气管线．给排水管道．设备安装和装修工程，为1年
资产负债表的下列项目中，只需要根据1个总分类账账户就能填列的项目是（）。
A．货币资金
B．长期借款
C．预付账款
D．预收账款
