最新vb二级考试试题
VB操作第一套卷
基本操作
1.在名称为Form1的窗体上添加一个二级下拉菜单(菜单项见下表),程序运行时的窗体如图所示。
第1级 第2级 名称 有效性
File 文件 有效
Open 打开 有效
Close 关闭 无效
注意:存盘时必须存放在考生文件夹下,工程名为sjt1.vbp,窗体文件名为sjt1.frm
2. 在名称为Form1的窗体上添加两个文本框,名称分别为Text1、Text2,均无初始内容。要求:
?通过属性窗口设置适当的属性,使Text1、Text2中显示的文本的字体为“隶
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
;”
?编写适当的事件过程,使得在Text1中输入每一个字符时,将Text1中的内容显示在Text2中,如图所示。
注意:
要求程序中不可使用变量,事件过程只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名为sjt2.frm。
简单应用
1.在考生文件夹下有一个工程文件sjt3.vbp,程序的功能是,在运行时,如果选中一个或两个复选框和一个单选按钮,则对文本框中的文本内容做相应的设置,如图所示。窗体上
的控件已经给出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
注意:不能修改已经给出的程序部分和已有的控件;在结束程序之前,必须选中一个单选按钮和至少一个复选框,并单击“确定”按钮,必须通过单击窗体右上角的关闭按钮结束程序,否则无成绩,最后将修改后的文件按原文件名存盘。
2. 在考生文件夹下有一个工程文件sjt4.vbp,窗体中已经给出了所有控件。程序运行时,单击“读入文件”按钮后,将显示一个“打开”对话框,可以在该对话框中选择考生文件夹下的文本文件in4.txt,并把程序中的,改为正确的内容,使其能正常运行,但不能修改程序中的其他部分和控件属性。最后用原来文件名保存工程文件和窗体文件。
程序代码:
Private Sub Command1_Click()
Dim n As Long
CD1.FileName = ""
' CD1.? = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"
CD1.FilterIndex = 2
' CD1.?
If CD1.FileName <> "" Then
' Open ? For Input As #1
n = LOF(1)
Text1 = Input$(n, #1)
' ?
End If
End Sub
综合应用
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的,改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的int.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名;挡在Text1中输入一个姓氏,或一个姓名后,单击“查找”按钮,则进行查找,若找到,就把所有与Text1中所有具有Text1中姓氏的姓名显示在Text2中;(如图所示)若未找到,则在Text2中显示“未找到”;若Text1中没有查找内容,则在Text2中显示“未输入查找内容”。
注意:考生不得修改程序的其他部分和控件的属性,最后将修改后的文件按原文件名存盘。
程序代码:
Dim a(15) As String
Private Sub C1_Click()
Dim k As Integer
Open "in5.txt" For Input As #1
Form1.Cls
For k = 1 To 15
Input #1, a(k)
Print a(k)
Next k
' Close ?
End Sub
Private Sub C2_Click()
Dim k As Integer, n As Integer, c As String
' n = Len( ? )
c = ""
If n > 0 Then
For k = 1 To 15
' If Left(a(k), ? ) = Text1.Text Then
' c = c + " " + ?
End If
Next k
If c = "" Then
Text2.Text = "未找到~"
Else
' Text2.Text = ?
End If
Else
Text2.Text = "未输入查找内容~"
End If
End Sub