国家二级VB机试（上机操作）模拟试卷453
基本操作题
1.(1)在称为Form1的窗体上添加一个名称为Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为Label1的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为Text1的文本框，文本框最多能够显示5个字符，文小框中初始内容为“圆形”，如图所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为四件套1．frm，工程文件名为sjt1．vhp。
(2)在名称为Form1的窗体上添加一个名称为Label1的标签，字号大小为四号，标题为“等级考试”，如图1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，单击窗体时，显示标签，如图2所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt2．Inn，工程文件名保存为四件套2．vbp。要求程序中小得使用变量，每个事件过程中只能写一条语句。
(1)步骤1：新建一个窗体，按照题目要求建立形状控件、标签控件及文本框控件并设置其属性，如图3．27所示。程序中用到的控件及属性见表3．36。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：新建一个窗体，按照题目要求建立控件并设置其属性，如表3．37所示。
[*]
步骤2：编写程序代码。
参考答案
Private Sub Form_Click()
Label1．Visible=True
End Sub
Private Sub Form_Load()
Form1．Caption=\\
解析：(1)Shape属性用来设置形状控件的形状。其取值及边框形状如下。
取0值：矩形，默认设置；取1：正方形；取2：椭圆；取3：圆；取4：圆角矩形；取5：圆角正方形。
AutoSize属性决定控件是否能自动调整大小以显示所有的内容。
MaxLength属性设置文本框中输入的字符串长度。默认值为0，表示该单行文本框中字符串的长度只受操作系统内存的限制。如果设置为大于0的数，则表示能够输入的最大字符数目。
(2)通过标签的。Name、Caption和FontSize属性设置标签的名称、标题和字体大小，通过设置标签的Visible属性为False，使标签初始为不可见。编写适当的程序，在Form_Load事件过程中，窗体的Caption属性值立即变为“标签”，在Foim_Click事件过程中单击窗体时，设置标签的Visible属性为True显示标签。
简单应用题
2.(1)在考生文件夹下有工程文件sjt3．vbp，其窗体上有1个标题为“计算”的命令按钮，1个标题为“无理数e的近似值”的标签。请再画1个初始内容为空的文本框Text1，如图所示。程序功能为：单击“计算”命令按钮，则计算无理数e的近似值，并将结果显示在Text1文本框中。近似公式女口下：e=1+1／1!+1／2!+1／3!+…+1／n!+…请将程序代码中的注释符去掉，把?改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4．vbp。其窗体中有1个名称为Command1，标题为“查找”的命令按钮；3个初始内容为空的文本框Text1、Text2和Text3，其中Text1允许显示多行内容，且有垂直滚动条，如图所示。程序功能为：首先在Text1中输入原始字符串，在Text2中输入要查找的单个字符，然后单击“查找”按钮，则在Text3中显示查找的结果。图示为某一次的运行效果。
请将“查找”命令按钮Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
(1)步骤1：打开本题项目工程，并在窗体中添加文本控件Text1，
并按照表4．6设置文本控件Text1的属性，结果如图4．5所示。
[*]
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim e As Single．x As Single
Dim i As Integer
e=0：i=0
x=1
Do While x>0．001301
e=e+x
i=i+1
x=1／je(i)
Loop
Text1．Text=e
End Sub
Function jc(n As Integer)As Long
Dim i As Integer
Dim t As Long
t=1
For i=1 To n
t=t*i
Next
jc=t
End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
(2)步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。
参考答案
Private Sub Command1_Click()
Dim x As String
Dim num As Integer，i As Integer
i=1
num=0
Do while i<=Len(Text1)
If Mid(Text1,i,1)=Text2 Then
num=num+1
End If
i=i+1
Loop
If num=0 Then
x=\\
解析：(1)在窗体中添加Text控件，首先将Text控件中的内容设置为空，然后进入“计算”按钮的单击事件过程，Do While循环结构中调用求阶乘函数jc，依次求变量i的阶乘结果，将最后的计算结果，显示在Text控件上。
(2)利用Do While循环遍历Text1中的字符串，并使用Mid(Text1，i，1)取出Text1中相应位置的字符，判断该字符是否与Text2中的字符
本文档预览：3600字符，共4728字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
