新建一个工程。在窗体上画一个文本框，名称为Text1。设置用户输入的字母一律转换为大写表示，焦点保

在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。

A．a 1

B．a a

C．1 a

D．1 1

A.A.12

B.B.20

C.C.24

D.D.40

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。

在窗体上画一个文本框，名称为Text1(可显示多行)，然后再画三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读数”、“统计”和“存盘”，如图8所示。程序的其功能是：单击“读数”按钮，则把考生目录下的in5．txt文件中的所有英文字符放入Text1 (可多行显示)；单击“统计”按钮，找出并统计英文字母i、i、k、l、m、n(不区分大小写)各自出现的次数；单击“存盘”按钮，将字母i～n出现次数的统计结果依次存到考生目录下的顺序文件out5．txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名为sit5．vbp，窗体文件名为sjt5．frm。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylc4.vbp，窗体文件名为ylc4.frm。

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_ Load () Show Text1.Text=" " Text1.SetFocusEnd SubPrivate Sub Command1_ Click() Text1. Text=LCase(SaveAll)+SaveAllEnd SubPrivate Sub Form_ KeyPress (KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为 ______。

A．vbVB

B．不显示任何信息

C．VB

D．出错

（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然

后编写如下两个事件过程：

Private Sub Command1_Click()

S$=InputBox("请输入一个字符串")

Text1.Text=S$

End Sub

Private Sub Text1_Change()

Label1.Caption=UCase(Mid(Text1.Text, 7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，

则在标签中显示的内容是 【6】 。

在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:

Private Sub Command1_Click()

a=InputBox("请输入日期 (1~31)")

t="旅游景点:"& IIf(a＞0 And a＜=10, "长城","") &

IIf(a＞10 And a＜=20, "故宫","") & IIf(a＞20 And a＜=31, "颐和园","")

Text1.Text=t

End Sub

程序运行后,如果从键盘上输入16,则在文本框中显示的内容是

A．旅游景点:长城故宫

B．旅游景点:长城颐和园

C．旅游景点:颐和园

D．旅游景点:故宫

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

2．在窗体上画两个单选按钮(名称分别为Op1和Op2，标题分别为“本科生”和“研究生”)和一个文本框(名称为T1)，然后编写适当的代码。程序运行后，如果选择“本科生”单选按钮，则在文本框中显示“我是本科生”；如果选择“研究生”单选按钮，则在文本框中显示“我是研究生”。程序的运行情况如图1—3和图1—4所示。

存盘时，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______。

A．36

B．45

C．54

D．63