国家二级VB机试(上机操作)模拟试卷438
基本操作题
1.(1)在名称为Form1,标题为“框架”的窗体上添加一个名称为Framel,且标题为空的框架。框架内含有两个单选按钮,名称分别为Optl和Opt2,其标题分别为“字体”、“大小”。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。
(2)考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形,直线Line1、Line2和Line3的坐标值如下所示:
名称 X1 Y1 X2 Y2
Line1 600 1200 1600 300
Line2 600 1200 2600 1200
Line3 1600 300 2600 1200
要求添加一条直线Line4以构成三角形的高,且该直线的初始状态为不可见。再添加两个命令按钮,名称分别为Cmd1、Cmd2,标题分别为“显示高”、“隐藏高”,如图所示。
(1)步骤1:建立界面,添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3.56。
[*]
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)步骤l:打开sjt2工程,按照题目要求建立Line控件并设置其属性,如图3.33所示。
[*]
步骤2:按照步骤1建立其他控件并设置相关属性,程序中涉及的控件及属性见表3.57。
[*]
步骤3:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub Cmdl_Click()
Line4.Visible=True’将Line4显示
End Sub
Private Sub Cmd2_Click()
Line4.Visible-False’将Line4隐藏
End Sub
步骤4:调试并运行程序,关闭程序后按题目要求存盘。
解析:(1)通过窗体的Caption属性设置窗体的标题,通过框架的Name和Caption属性设置框架的名称和标题,通过单选按钮的Name和Caption属性设置单选按钮的名称和标题。
(2)通过对直线Line1、Line2和Line3的坐标值的计算,确定线条的X1、X2、Y1和Y2属性的值,画出线段Line4,并将其Visible属性设置为False,使得在初始状态下为不可见。再通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。在Cmdl_Click事件过程中将Line4的Visible属性设置True,则可以显示高,在Cmd2_Click事件过程中把Line4的Visible属性设置False,则可以隐藏高。
简单应用题
2.(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combol的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Cmnmandl、Cmnmand2,其标题分别为“添加”、“统计”。在程序运行时,向Text1中输入字符,单击“添加”按钮后,则将Text1中的内容作为一个列表项被添加到组合框的列表中;单击“统计”按钮,则在窗体空白处显示组合框中列表项的个数,如图所示。请编写两个命令按钮的Click事件过程。
注意:程序中不得使用变量,也不能使用循环结构,存盘时必须存放在考生文件夹F,工程文件名保存为sjt3.vbp.窗体文件名保存为sjt3.frm。
(2)在考生文件夹下有一个工程文件sjt4.vbp.其窗休如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”,“Z”后面的字母认为是“A”),如图所示。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
(1)步骤1:新建一个窗体,按照题目要求建立控件并设置控件属性,如图3.22所示。
[*]
程序中用到的控件及属性设置见表3.15。
[*]
步骤2:打开代码编辑窗口,在指定位置编写如
下代码。
参考答案
Private sub Command1_Slick()
Combol.AddItem Text1
End Sub
PriVate Sub Command2_Slick()
Print Combol.ListCount
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(2)步骤l:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。
参考答案
Private Sub Command1 Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String,a As String
F0r k=0 To 2
If Op1(k).Value Then
n=Val(Op1 (k).Caption)
End If
Next k
m=Len(Text1.Text)
a=\\
解析:(1)命令按钮和标签的标题用属性窗口中的Caption属性设置。要使Text1的文本框没有初始内容,需要将属性窗口中的Text属性设为空。要在下拉式组合框中输入内容,可以在属性窗口中对下拉式组合框的List属性进行设置。
AddItem方法用来向组合框中添加一个列表项,其格式为:
组合框.AddItem列表项[索引]
ListCount属性用来返回组合框中列表项的个数。
(2)根据题意,首先要确定移动的位数,移动的位数是通过单选按钮来选择的,移动的值是由单选按钮的Caption属性值决定的,然后要确定循环的次数,循环的次数是由输入字母的个数决定的。使用Mid()函数取出字符串中的字符,利用Asc()函数返回字符的代码,利用String()函数将字符代码转换成字符。
本文档预览:3600字符,共4748字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载