题目内容
（请给出正确答案）
A.Private Sub save Click（）
Text1．Text=file．save．Caption
End Sub
B.Private Sub save Click（）
Text1．Text=save．Caption
End Sub
C.Private Sub file Click（）
Text1．Text=file．save．Caption
End Sub
D.Private Sub file Click（）
Text1．Text=save．Caption
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构…”相关的问题
A ） Private Sub save_Click()
Sub save_Click()
Text1.Text=file.save.Caption
ave.Caption
End Sub
B ） Private
Text1.Text=s
End Sub
C ） Private Sub file_Click()
Text1.Text=file.save.Caption
End Sub
D ） Private Sub file_Click()
Text1.Text=save.Caption
End Sub
A.Type Systemlnfo
B.Type SystemInfo
请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框重新出现。运行后的窗体如下图所示。
.jpg)
注意：
程序中不得使用变量，每个事件过程中只能写一条语句；文件必须存放在考生文件夹中，工程文件名为execise30.vbp，窗体文件名为execise30.frm。
在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。
A．TabStop
B．Enabled
C．Visible
D．TabIndex
设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是()。
A．Basic
B．cisaB
C．BASIC
D．CISAB
触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load()
Me.TimerInterval =1000
End Sub
Private Sub 【 12 】
Me!text1 = Now()
End Sub
ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序：
Private Sub Text 1 KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1．Text="Teacher"Then
Form2．input．Visible=True
Else
Form2．input．Visible False
End If
End If
Forml．Hide
Form2．Show
End Sub
菜单结构
标题 名称
级别
成绩管理
mark
1
成绩查询
query
2
成绩录入
mput
3
程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（）。
A.把Form1中Text1文本框及相关程序放到Form2窗体中
B.把Form1．Hide、Form2．Show两行移动2个End If之间
C.把If KeyAscii=13 Then改为If KeyAseii="Teacher"Then
D.把2个Form2 input．Visible中的“Form2．”删去
Private Sub Form_Load（）
Command1 Enabled=False
End Sub
Private Sub Text1_ ________ （）
Command1 Enabled=True
End Sub
设窗体上有一个名为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程序设计
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text=Fun2(Fun1(x),y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer) As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer，y As Integer) As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是
A．2 4 2 4
B．2 4 4 8
C．10 10 58 58
D． 4 4 8 8
