1、1Visual Basic 程序设计期末复习一一、单项选择题1能够改变标签(Label)控件显示标题的属性是（ B ） 。AName BCaption CText DBorder2当一个工程中含有多个窗体时，其中的启动窗体是（ C ） 。A启动 VB时创建的第一个窗体 B第一个添加的窗体C在“工程属性”对话框中指定的窗体 D最后一个添加的窗体 3.当运行程序时，系统自动执行启动窗体的（ A ）事件。ALoad BUnload CClick DLostFocus4下列 4 项中合法的变量名是（ D ） 。A2xyz BIntegerCx-yz Dx_yz5表达式 24 / 2 - 2 3 *4
2、/ 4 Mod 5 3（ A ）A12 B16C20 D326要清除 List 列表框控件中的所有项目，可采用的方法是（ B ）AErase BClear CClick DDelete7下列正确的赋值语句是（ C ） Ax+y=z B2=x+y Cz=x+y Dx=Integer+28可通过下列何种属性来设置或返回 List 列表框控件中当前选定项目的索引（ A ） 。AListIndex BListCount CListText DLisItem9.若窗体 Form1左上角的坐标为(-250,300)，右下角的坐标为(350,-200)，那么 X轴和 Y轴的正方向是（ D ）A向左和向上 B
3、向左和向下C向右和向下 D向右和向上 10如果仅需要得到当前系统时间，则可以使用哪个函数（ A ）ATime BYear2CNowDDate11数学关系 8y 2 Thenk = k + 5Elsek = k + 2End IfNext iPrint i, kEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。5 146.Private Sub Form_Click()Dim i As Integer, k As Integer, c As IntegerFor i = 1 To 5If i Mod 2 = 0 Thenk = k + 2Elsec = c + 26End IfN
4、ext iPrint k, cEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。4 67Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tPrint x, yEnd SubPrivate Sub Form_Click()Dim a As Integer, b As Integera = 10: b = 20Change a, bPrint a, bEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。20 10四、完善程序题1假设用 Access 创建了一
5、个名为“学生.MDB ”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图 1 所示。现在要求利用 VB 编写一个数据库查询程序，程序的运行界面如图 2 所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1) ，如果数据库中存在该学号，则分别在 Text2、Text3、Text4 中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使 Text1 获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。图 1 用 Access 创建的学生基本情况数据表7图 2 查询程序运行界面程
6、序如下，请补充完整。Private ADOcn As ConnectionPrivate Sub Form_Load()1 SetADOcn=New Connection 2 ADOcn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:学生.MDB“End SubPrivate Sub Command1_Click()Dim strSQL As StringDim ADOrs As 3 New RecordsetADOrs.ActiveConnection = 4 ADOcn strSQL = “Select * From 学生基本情况
7、 Where 学号=“ + “ “ + Text1 + “ “5 ADOrs.Open strSOL If 6 Not ADOrs.EOF ThenText2 = ADOrs.Fields(“学号“)Text3 = ADOrs.Fields(“姓名“)Text4 = ADOrs.Fields(“籍贯“)ElseMsgBox “要查询的学号不存在，请重新输入!“, vbOKOnly, “信息提示“Text1 = “7 Text1.SetFocus End IfEnd SubPrivate Sub Command2_Click()UnLoad MeEnd82使用顺序文件读写方式编写一个简单的记事本
8、应用程序，其运行界面如图 3 所示。基本逻辑是：假设在以 C 盘的根目录下有一个名为 F1.txt 的文本文件。当点击“打开”按钮(Command1) 时，程序将 F1.Txt 文件中的内容显示在文本框(Text1) 中，当点击“新建”按钮(Command2) 时，清空 Text1 中的内容；用户可以在 Text1 中进行编辑操作，当点击“保存”按钮(Command3)时，将 Text1 中的内容保存在 F1.txt 文件中。当点击“退出”按钮(Command4)时关闭本窗体。记事本程序运行界面程序如下，请补充完整。Private Sub Command1_Click()Dim strtxt
9、As StringText1 = “Open “G:VBaa.Txt“ For Input As #1Do While 1 Not EOF（1） Input #1, strtxtText1 = Text1 + 2 strtxt Loop3 Close #1 End SubPrivate Sub Command2_Click()Text1 = “End SubPrivate Sub Command3_Click()4 Open“G：VBaa.Txt”For Output As #1 Write #1, 5 Text1 Close #1End SubPrivate Sub Command4_Cli
10、ck()Unload MeEnd Sub93列表框应用程序。要求从文本框(Text1)中输入姓名，然后按“回车”键，把姓名添加到列表框(List1) 中；当选择列表框中某一项后，按“删除”按钮(Command1)，则从列表框中删除该项。程序运行结果如下图所示。Private Sub Text1_KeyPress( 1 KeyAscii As Intege )If KeyAscii = 2 13 ThenIf Text1 = 4 0 Then5 List1.RemoveItem List1.ListIndex ElseMsgBox “请先选择一个项目!“, vbOKOnly, “信息提示 “En
11、d IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub10五、编写程序题1.编写一程序，要求单击“开始”按钮(Command1)，在列表框(List1)中输出 1100 之间偶数，单击清除按钮(Command2)，清除文本框中的全部内容。程序运行结果如下图所示。答案 Private Sub Command1_Click()Dim i As IntegerFor i = 200 To 400If i Mod 2 = 0 ThenList1.AddItem iEnd IfNext iEnd SubPrivate Sub Command2_Cl
12、ick()List1.ClearEnd Sub2. 请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入在 1000 元以内，扣税 3%；（2）收入在 1000-3000 元内， 800 元以上部分扣税 15%，（3）收入在 3000-5000 元内， 3000 元以内按（2）的方法扣税，3000 元以上部分，扣税 20%，（4）当收入达到 5000 元以上，扣税 25%。程序运行界面如下图所示。11答案 Private Sub Command1_Click()Dim x As Integer, tax As Singlex = Val(Text1.Text)If x 1000 Thentax = 1000 * 0.03ElseIf x = 3000 Thentax = (x - 800) * 0.15ElseIf x = 5000 Thentax = (x - 800) * 0.15 + (x - 3000) * 0.05Elsetax = x * 0.25End IfEnd IfEnd IfText2.Text = taxEnd Sub
