1 基本操作题1. 在名称为Form1的窗体上建立一个名称为Command1，标题为“输出”的命令按钮，再建立一个名称为Text1的文本框，字体为四号常规黑体，编写适当的事件过程，要求程序运行后，如果单击“输出”命令按钮，则在文本框在上显示“模拟考试”，如下图左图所示。程序中不能使用任何变量，直接显示字符串。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
根据题意，新建“标准EXE”工程，将一个Text控件和一个Command控件添加到窗体上。Text的名称为Text1，Text属性为空，Font属性为四号、常规、黑体，Command的名称为Command1，Caption属性为“输出”。双击Command1命令按钮，编写如下代码：
Private Sub Command1_Click()
Text1.Text="模拟考试"
End Sub
单击
按钮运行程序，并按要求保存。
2. 在名称为Form1的窗体上画一个标签，名称为Label1，边框属性为1；再画一个命令按钮，名称为Command1，标题为“最右端”，运行界面如下图右图所示。请编写适当的事件过程，使运行界面在运行时，单击“最右端”按钮．则标签水平移动到窗体的最右端。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。
根据题意，新建“标准EXE”工程，将一个Label1控件和一个Command控件添加到窗体上。Labell的名称为Label1，Caption属性为空，BorderStyle属性为1，Command的名称为Command1，Caption属性为“最右端”。双击Command1命令按钮，编写如下代码：
Private Sub Command1_Click()
Label1.Left=Form1.width-Label1.Width '将Label1移动到最右端
End Sub
单击
按钮运行程序，并按要求保存。
2 简单应用题1. 在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个Text文本框控件，名称为Text1，一个Label标签，名称为Label1，两个命令按钮，名称为Command1，标题为“读入文件”。要求程序运行后，单击Command1将in.txt的内容显示到Text1中，并统计Text1中有多少个字符，将结果显示在Label1中。程序运行界面如左下图所示。
根据题意，将一个Text控件、一个Labell控件和一个Command控件添加到窗体上，Text的名称为Text1，Text属性为空，MultiLine属性为True，ScrollBar属性为2，Labell的名称为Label1，Caption属性为空，Command的名称为Command1，Caption属性为“读入文件”，设置完成后双击Command1命令按钮，编写如下代码：
Private Sub Command1_Click()
Dim str AS String
Dim temp As String
Str=" "
Open".\in.txt" For
Input As#1 '打开文件准备读取
While EOF(1)=False '判断是否读到文件尾
Input # 1,temp '读取字符串
str=str+temp '将读取的字符串放入输出字符串中
Wend
Close # 1 '关闭文件
Text1.
Text=str '在Text1中显示输出字符串
Label1.
Caption=
Len(str) '将字符串长度在Label1中显示出来
End Sub
单击
按钮运行程序，并按要求保存。
2. 在考生文件夹下有一个工程文件sj4.vbp，相应的窗体文件名为sj4.frm，求数组的中间值。程序运行后，单击“读入”按钮，通过输入对话框输入5个整数，然后单击“取中间值”命令按钮，即可求出数组的中间值，并在名称为Label1的标签上显示出来，如右下图所示。这个程序不完整，请把它补充完整．并能正确运行。
要求：去掉程序中的注释符“'”把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，最后把修改后的文件按原文件名存盘。
根据题意，在窗体上添加一个Text控件和两个Command控件，Text的名称为Text1，Text属性为空，Command的名称分别为Command1和Command2，Caption属性分别为“读入”和“取中间值”。双击Command1命令按钮，编写如下代码：
Dim a(5)As Integer
Private Sub Command1_Click()
Dim i As Integer
Dim temp AS Integer
Dim j As Integer
Dim k As Integer
For i=1 To 5
a(i)=Val(InputBox("请输入")) '通过输入对话框获得5个数放入数组中
Next i
For i=1 To 5 '降序排列
temp=a(i)
For j=1 To i
If a(j)＜temp Then '读取的数据比原位置的数据小则偏移
For k=i To J+1 Step-1
a(k)=a(k一1) '数据向后偏移一个
Next k
a(j)=temp
Exit For End If
Nextj
Next i
End Sub
Private Sub Command2_Click()
Text1.Text=a(3) '数组a的第3个数即为中间值
End Sub
单击
按钮运行程序，并按要求保存。
3 综合应用题1. 去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。
在窗体上有3个命令按钮，名称分别为Read、Cat和Save，标题分别为“读入数据”、“判断计算”和“保存”，还有两个文本框(名称分别为Text1和Text2，其中Text1的MultiLine属性设置为True，ScrollBars属性设置为2)，程序运行界面如下图所示。
程序运行后，如果单击“读入数据”按钮，则读入sjin.txt文件中的50个整数，放入一个数组中，数组的下界为1；如果单击“判断计算”按钮，则把该数组中大于400且是奇数的元素在文本框中显示出来，并求出它们的和，并把所求得的和在Text2中显示出来；如果单击“保存”按钮，则把所求得的和存入考生文件夹下的sjout.txt文件中。
在考生文件夹下有一个工程文件sj5.vbp，输出文件名为sjout.txt。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sj5.vbp，窗体文件名仍为sj5.frm。
根据题意，将两个Text控件和3个Command控件添加到窗体上，Text的名称分别为Text1和Text2、Text属性全为空，其中Text1的MultiLine属性为True，ScrollBar属性为2，Command的名称分别为Command1、Command2和Command3，Caption属性分别为“读入数据”、“0判断计算”和“保存”。双击Command1命令按钮，编写如下代码：
Dim a(50) As Integer
Dim total As Long
Private Sub Command1_Click()
Dim str As String
Dim i As Integer
Str=" "
Open".\sjin.txt" For
Input As #1 '打开文件准备读入
For i=1 To 50 '利用For循环将50个数读入到数组中
Input # 1,a(i)
str=str+CStr(a(i))+vbCrLf '以字符串形式保存
Next i
Close # 1
Text1.Text=str '在Text1中显示数组
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim str As String
str=" "
total=0
For i=1 To 50 '利用For循环遍历数组
If
a(i)＞400 And a(i)Mod 2＝1 Then '判断是否大于400且是奇数
total=
total+a(i) '如果是则求和
str=str+CStr(a(i))+vbCrLf '并放入输出字符串中
End If
Next i
Text1.Text=str '在Text1中显示符合条件的数
Text2.
Text=total '在Text2中显示和
End Sub
Private Sub Command3_Click()
Open".\sjout.txt"For
Output As # 2 '打开文件准备写入
Print # 2,total '将求得的和写入文件中
Close # 2
End Sub
单击
按钮运行程序，并按要求保存。
深色：已答题 浅色：未答题