2022年程序设计基础期末复习指导 .pdf

《2022年程序设计基础期末复习指导 .pdf》由会员分享，可在线阅读，更多相关《2022年程序设计基础期末复习指导 .pdf（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1 / 28 程序设计基础期末复习指导2018-11 一、程序设计基本知识点（选3 道）1.在Visual Studio NET 的集 成开 发环 境中 ，下 面不 属于 该环 境编 程语 言的 是（ C ）。A.VB B.C+ C.Pascal D.C# 2.下面哪个字符串是合法的变量名。（ A ）。A. X_yz B. 123abc C. integer D. x-y 3.下面哪个字符串是合法的变量名。（ A ）。A.A_z B. e C. 6y D . t/t 4.下面哪个字符串是合法的变量名。（ A ）。A.Az B .A-z C. String D . x+y 5.、/、mod、*四

2、个算术运算符中，优先级别最低的是（ C ）。A B/ Cmod D* 6.Int（ 198.555*100+0.5 ）/100 的值是（ C ）。A198 B199.6 C198.56 D200 7.在一行内写多条语句时，每个语句之间用（ B ）符号分隔。A, B: C、D。8.一条句语句要在下一行继续写，应在第1 行最后加上（ C ）符号作为续行符。A+ B- C_ D9.已知 a=12,b=20，复合赋值语句“a*=b+10 ”执行后， a 变量中的值是（ D ）。A50 B250 C30 D360 10.已知 a=3.5,b=5.0,c=2.5,d=True ，则表达式：a=0 AND

3、a+cb+3 OR NOT d的值为（ D ）。A.5.0 B.3.5 C. True D. False 11.下面正确的赋值语句是（ C ）。A. x+y=30 B . y*x=5 C. y=x+30 D. 3y=x 12.15 除以 4 余数的 3次方的 VB.NET 表达式为（ B ）。A.mod(15,4)(-3) B .(15 mod 4) (-3) C. 15.0 mod 4 -3.0 D. mod(15.0,4)3 13.将变量 K 四舍五入保留2 位小数的表达式是（ C ）。A.Int(k+0.5)*100)/100 B. Int(k*100)/100 +0.5 C. Int(

4、k*100 +0.5)/100 D. Int(k*(100+0.5)/100 14.表达式 16/4-25*8/4MOD52的值为（ B ）。A.14 B . 4 C. 20 D. 12 15.表示 x 是 5 的倍数或是9 的倍数的逻辑表达式为（ C ）。A.x / 5 OR x /9 B. x / 5 AND x /9 B. x MOD 5 OR x MOD 9 D. x MOD 5 AND x MOD 9 16.while 语句后面的表达式应该是（ A ） 。A.逻辑或关系表达式 B. 字符表达式 C. 算术表达 D. 任意表达式17.IF 语句后面的表达式应该是：（ A ）。A.逻辑或

5、关系表达式 B.字符表达式 C. 任意表达式 D. 算术表达式精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 28 页2 / 28 18.下面程序段的运行后，n的值为（ C ）。n=1 for i=1 to 3 n=n*I next A.3 B. 2 C. 6 D. 5 19.数学关系3x10 表示为正确的VB.NET 表达式为（ B ）。A.3=x10 B. 3=x AND x=3 OR x10 D. 3=x AND =1 1 0X1 0 X=1 THEN Y=X2+1 IF X0 THEN Y=1 IF X=1 THEN Y=X2+

6、1 ELSEIF X0 THEN Y=1 ELSE Y=0 END IF C.IF X=1 THEN Y=X2+1 IF X0 THEN Y=1 IF X=1 THEN Y=X2+1 IF X0 THEN Y=1 ELSE Y=0 END IF END IF 22.要退出应用程序的执行，不能执行下列的（ D ）语句。A.End B. Me.Close C. Application.Exit() D. Exit() 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 28 页3 / 28 二、属性（选3 道）23.当文本框的ScrollBar

7、s 属性设置了非None 值，却没有效果，原因是（ B ）。 A文本框中没有内容 B. 文本框的MuliLine属性为 False C文本框的MuliLine 属性为 TrueD文本框的Locked 属性为 True 24.要使窗体在运行时最大化按钮不可操作，只要对窗体中哪个（ A ）属性进行设置。A.MaximizeBox B. BorderStyle C. Width D. MinimizeBox 25.要使窗体在运行时最小化按钮不可操作，只要对窗体中哪个（ D ）属性进行设置。A.MaximizeBox B. BorderStyle C. Width D.MinimizeBox 26.要

8、使窗体在运行时最大化按钮不可操作，只要将窗体中MaximizeBox属性设置为（ B ）。A.True B. Flase C. Boolean D. Yes 27.要使窗体在运行时最小化按钮不可操作，只要将窗体中MinimizeBox属性设置为（ B ）。A.True B. Flase C. Boolean D. Yes 28.修改窗体Form 的标题显示内容，要对（ D ）属性进行设置。A.Name B. ForeColor C. BackColor D . Text 29.若要使命令按钮不可见，要对（ B ）属性进行设置。A.Enabled B. Visible C. BackColor

9、D. Text 30.要增加组合框Combo 控件中选项，应使用Items 集合的（ C ）方法。A.Sub B. Remove C. Add D. Clear 31.要增加列表框ListBox 控件中选项，应使用Items 集合的（ C ）方法。A.Sub B. Remove C. Add D. Clear 32.要删除组合框Combo 控件中选项，应使用Items 集合的（ B ）方法。A.Sub B. Remove C. Add D. Clear 33.要删除列表框ListBox 控件中选项，应使用Items 集合的（ B ）方法。A.Sub B. Remove C. Add D. Cl

10、ear 34.要选择 LinkLabel 标签中要呈现为超级链接的文本部分，要对（ A ）属性进行设置。A.LinkArea B. LinkBehavior C. LinkColor D. Text 35.要修改 GroupBox 控件的标题内容，应对（ A ）属性进行设置。A.Text B. BackgroundImage C. GridSize D. Cursor 36.调整 PictureBox 控件大小，使其等于所包含的图像大小，则其SizeMode 属性应设置为（ A ）值。A.AutoSize B. CenterImage C. Normal D. StretchImage 37.

11、设置 Time 控件的事件发生间隔为0.1 秒，则 Interval 属性应设置为（ B ）。A.10 B. 100 C. 1000 D. 10000 38.设置 Time 控件的事件发生间隔为1 秒，则 Interval 属性应设置为（ C ）。A.10 B. 100 C. 1000 D. 10000 39.要使窗体刚运行时，显示在屏幕的中央，应设置窗体的（ B ）属性。A.WindowsState B. StartPosition C. CenterScreen D. CenterParent 40.要使文本框控件能够显示多行，应设置文本框的（ B ）属性。精选学习资料 - - - - -

12、 - - - - 名师归纳总结 - - - - - - -第 3 页，共 28 页4 / 28 A.MaxLength B. MultiLine C. PasswordChar D. WordWrap 41.要使文本框中的内容全部显示为星号（即为“*” ） ， 应设置文本框的（ C ）属性。A.MaxLength B. MultiLine C. PasswordChar D. WordWrap 42.要使文本框中的内容最多只能输入20 个字符，应设置文本框的（ A ）属性。A.MaxLength B. MultiLine C. PasswordChar D. WordWrap 43.在用对话框

13、控件时，如果需要指定“打开”或“保存”文件对话框的中文件列表框所列出的文件类型是文本文件（即.txt 文件），则正确的描述格式是（ A ）。A.“ text(*.txt) | *.txt ” B. “ 文本文件 (*.txt) | .txt ”C. “ text(.txt) | *.txt ” D . “ text(.txt) (*.txt) ”44.在 “ 打 开 ” 文 件 对 话 框 中 ， 若 只 想 获 得 选 定 文 件 的 文 件 名 ， 则 应 该 使 用（ A ）属性。A.FileName B. Filter C. Title D. SafeFileName 三、数组（选1

14、道）45.如下数组声明语句，则数组包含元素的个数是（ C ）。Dim a(6) As Integer A.5 B 6 C. 7 D. 8 46.下面数组初始化正确的是（ B ）。A.Dim a(3) as Integer=12,34,56,78 B. Dim a() as Integer=12,34,56,78 C. Dim a(3) as Integer ：a(1)=12 ：a(2)=34 ：a(3)=56 ： a(4)=78 D. Dim a(3) as Integer ：a(0)=0 ：a(1)=12 ：a(2)=34 ：a(3)=56 ：a(4)=78 47.可通过设置MDI 子窗体的

15、（ D ）属性来制定该子窗体的MDI 父窗体。A.ActiveMdiChild B. IsMdiChild C. MdiChildren D. MdiParent 48.要使复选框控件能够显示三种状态，应首先设置它的（ A ）属性。A.ThreeState B. Checked C. CheckState D. Indeterminate 49.如下数组声明语句正确的是（ B ）。A.Dim a3,4 As Integer B. Dim a(3,4) As Integer C. Dim a(n,n) As Integer D. Dim a(3 4) As Integer 50.如下数组声明语句

16、，则数组包含元素的个数是（ D ）。Dim a(7) As Integer A.5 B. 6 C. 7 B. 8 51.“Dim A(2,3) as Integer ”数组声明语句中，数组包含元素的个数是（ B ）。A8 B12 C24 D10 52.下列数组声明语句正确的是（ B ）。ADim a3,4 As Integer B Dim a(3,4) As Integer CDim a(n,n) As Integer D Dim a(3 4) As Integer 四、过程（选1 道）53.对于过程，下列叙述中正确的是（ A ）。A.过程的定义不能嵌套，但过程调用可以嵌套B.过程的定义可以嵌

17、套，但过程调用不能嵌套C.过程的定义和过程调都可以嵌套 D. 过程的定义和过程调都不能嵌套54.在过程中定义的变量，如果希望在离开该过程后，还能保存过程中局部变量的值，精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 28 页5 / 28 就应该使用（ B ）关键字在过程中定义局部变量。A.Dim B. Static C. Public D. Private 55.在过程内定义的变量（不在语句块中）为（ C ）。A全局变量 B模块级变量 C局部变量 D静态变量56.在 定 义 过 程 时 ， 如 果 希 望 某 形 参 按 引 用 传 递

18、 ， 则 应 在 该 形 参 前 加 上 关 键 字（ B ）。AByVal B ByRef C Value D Reference 57.在 定 义 过 程 时 ， 如 果 希 望 某 形 参 为 可 选 参 数 ， 则 应 在 该 形 参 前 加 上 关 键 字（ B ）。AByVal B Optional C choose DSub 58.定义函数时，使用的关键字是（ C ）。APublic B Private CFunction D Sub 59.有过程定义如下：Private Sub fun(ByVal x as Integer,ByVal y as Integer,ByVal z

19、as Integer) 则下列调用语句不正确的是（ C ）A.Call fun(a,b,c) B. Call fun(3,4,a) C. fun a,5 D. fun(a,b,c) 五、面向对象和异常（选1 道）60.对象的特征称（A ），对象能够执行的操作称方法，对象能够识别的操作称事件。A.属性 B. 类 C. 方法 D. 事件61.对象的特征称属性，对象能够执行的操作称（C ），对象能够识别的操作称事件。A.属性 B. 类 C. 方法 D. 事件62.对 象 的 特 征 称 属 性 ， 对 象 能 够 执 行 的 操 作 称 方 法 ， 对 象 能 够 识 别 的 操 作 称（ D ）。

20、A.属性 B. 类 C. 方法 D. 事件63.面向对象的程序设计语言的基本编程模式是（ A ）驱动A.事件 B. 对象 C. 方法 D. 类驱动64.下列关于 Try CatchFinally End Try 语句的说明中，不正确的是（ D ）。A.Catch 块可以有多个 B. Finally 块是可选的C. Catch 块是可选的 D. 可以只有Try 块65.在代码窗口，代码下方有蓝色波浪线表示（ B ）。 A编译错误 B语法错误 C逻辑错误 D运行时错误66.在程序设计中，异常处理主要是用来解决（ D ）。A编译错误 B语法错误 C逻辑错误 D运行时错误六、数据库（选1 道）67.要

21、连接数据库，需要设置BindingSource 控件中的（ C ）属性。A.DataMember B. SqlConnect C. DataSource D. DataSet 68.ADO.NET中记录集的显示是通过DataAdapter 对象的（B ）方法填充记录集。A.Select B. Fill C. Update D. Delete 69.要设置 DataGridView 控件中显示的字段名称，应修改（ B ）属性。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 28 页6 / 28 A.Columns HeaderText B

22、. Columns C. Caption D. Title 70.ADO.NET 中通过（ D ）对象保存当前数据集。A.Connect B. Command C. DataAdapter D. DataSet 71.ADO.NET 中通过 DataAdapter 对象的（ C ）方法更新数据库。A.Select B. Fill C. Update D. Delete 72.BindingNavigator 控件的功能（ D ）。A连接数据库 B. 取数据 C. 写数据 D. 记录导航操作题（ 80分）1、新建工程test01，将其保存在考试目录下，要求：1） 程序运行界面如下图；2） 编写程

23、序实现“计算”按钮的功能：在第一个文本框中输入购物金额后，单击“计算”按钮，计算出实收金额，并显示在第二个文本框中（第二个文本框不可修改）。若购物金额小于1000 元（含1000 元），实收金额等于购物金额；若购物金额大于1000元，则超过1000 的金额打9 折；3） 单击“退出”按钮退出该程序。(10 分) 第二个文本框不可修改，选中第二个文本框，将其ReadOnly属性设置为 True参考代码：PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button

24、1.Click Dim gwje, ssje AsSingle gwje = Val(Me .TextBox1.Text) If gwje = 1000 Then ssje = gwje Else ssje = 1000+(gwje-1000) * 0.9 EndIf 计算按钮的代码精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 28 页7 / 28 Me .TextBox2.Text = ssje.ToString EndSub PrivateSub Button2_Click(ByVal sender As System.Objec

25、t, ByVal e AsSystem.EventArgs) Handles Button2.Click End EndSub 2、新建工程test02，将其保存在考试目录下，要求：1） 程序运行界面如下图；2） 单击“产生数组”按钮，随机产生8 个整数，整数的范围为0-50，并显示在第一个文本框中；（用数组实现）3） 单击“求最大值”按钮，计算出8 个整数中最大的整数，并显示在第二个文本框中；4） 将 2 个文本框改为不可修改状态。(10 分) 2个文本框改为不可修改状态，将两个文本框的ReadOnly属性设置为 TrueDim a(7) AsInteger PrivateSub Butto

26、n1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim i AsInteger Dim rd AsNew Random Me .TextBox1.Clear() For i = 0 To a.Length - 1 a(i) = rd.Next(0, 50)Me .TextBox1.Text = Me .TextBox1.Text & a(i) & Next Me .TextBox2.Clear() EndSub PrivateSub Button2_Click(B

27、yVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click 退出按钮代码产生数组按钮的代码精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 28 页8 / 28 Dim i, m AsInteger m = a(0) For i = 0 To a.Length - 1 If m a(i) Then m = a(i) EndIf Next Me .TextBox2.Text = m.ToString EndSub PrivateSub But

28、ton3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click End EndSub 如果是求平均值代码如下：Dim i, sumAsInteger sum = 0 For i = 0 To a.Length - 1 Sum= sum + a(i)Next Me .TextBox2.Text = Cstr(sum/a.Length) 2新建工程test02-1，将其保存在目录下，要求：定义一个具有10 个元素的一维数组，给它的每一个元素赋一个随机数（范围：0100）。然后求出

29、该数组的所有元素的平均值及比平均值小的元素个数。Dim a(9) AsInteger 定义一维数组PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim i AsInteger Dim rd AsNew Random Me .TextBox1.Clear() For i = 0 To a.Length - 1 计算按钮的代码如果是求最小值，只要将 就可以了。产生数组按钮的代码精选学习资料 - - - - - - - - - 名师归纳

30、总结 - - - - - - -第 8 页，共 28 页9 / 28 a(i) = rd.Next(0, 101) Me .TextBox1.Text = Me .TextBox1.Text & a(i) & Next Me .TextBox2.Clear() Me .TextBox3.Clear() EndSub PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click Dim i, sum, gs AsInteger Dim pjz As

31、Single sum = 0 gs = 0 For i = 0 To a.Length - 1 sum = sum + a(i) Next pjz = CStr (sum / a.Length) For i = 0 To a.Length - 1 If a(i) pjz Then gs = gs + 1 EndIf Next Me .TextBox2.Text = pjz.ToString Me .TextBox3.Text = gs.ToString EndSub PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e

32、AsSystem.EventArgs) Handles Button3.Click Close() EndSub 3、新建工程test03，将其保存在考试目录下，要求：1） 输入任意正整数（最多9 位正整数），求各位数之和，并显示在第二个文本框中（第二个文本框不可修改），程序运行界面如下图；2） 求整数各位数之和的功能用函数实现，“计算”按钮事件中只要调用该函数即可，函数框架如下所示： Function F(ByVal n As Integer) As Integer 函数体 End Function 3） 当第一个文本框中输入非整数时，在第二个文本框中显示提示，如下图。(15 分) 求平均值

33、几个数按钮的代码精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 28 页10 / 28 最多 9位正整数的做法，将文本框1的MaxLength 属性值设置为9，第二个文本框不可修改，选中第二个文本框，将其ReadOnly属性设置为 TrueFunction F( ByVal n AsInteger ) AsInteger Dim sum, t AsInteger sum = 0 DoWhile n 0 t = n Mod 10 sum = sum + t n = n 10 Loop Return sum EndFunction Priv

34、ateSub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim a AsLong Dim sum AsInteger Try a = Convert.ToInt32(Me .TextBox1.Text) sum = F(a) Me .TextBox2.Text = sum.ToString Catch ex As Exception Me .TextBox2.Text = 非正整数错误EndTry EndSub PrivateSub Button2

35、_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click End EndSub4、新建工程test04，将其保存在考试目录下，要求：1） 程序运行界面如下图；2） 设置主菜单，其内容（包括快捷键等）如下图所示（“编辑”、“格式”、“查看”和“帮助”下的二级菜单可以为空）；3） 设置快捷菜单如下图所示（包括：“剪切”、“复制”和“粘贴”），即在窗体下单击鼠标右键会出现的菜单；函数体代码计算按钮的代码精选学习资料 - - - - - - - - - 名师归纳总结 - - - - -

36、 - -第 10 页，共 28 页11 / 28 4） 将主界面设置为MDI格式，单击“新建”菜单，能打开第二个窗体，具体如下图所示，第二个窗体是包含在第一个窗体中，第二个窗体中只有一个文本框控件，该文本框需要设置为多行。（15 分）界面中主菜单界面中快捷菜单精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 28 页12 / 28 单击“新建”菜单后的界面第二个窗体是包含在第一个窗体中是将form1 的 IsMdicontainer 属性设置为Ture。文本框需要设置为多行，将form2 上的 TextBox1 的 Multiline

37、属性设置为Ture 参考代码：PrivateSub 新建 NToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建 NToolStripMenuItem.Click Form2.MdiParent = Me Form2.Show() EndSub PrivateSub 退出 XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出

38、 XToolStripMenuItem.Click End EndSub5、新建工程test05，将其保存在考试目录下，要求：1） 初始状态时，左边列表框中的数据如下图所示；2） 单击“添加”按钮，能够把下面文本框中的内容添加到左边列表框中，要求不能添加重复的记录；3） 单击左边列表框中的记录，然后单击“删除”按钮，可以删除选中的记录，可以同时删除多条记录，如下图所示。4） 完成中间4 个按钮的功能，列表框都支持多选，而且可以进行多条记录的移动。（15 分）“ 新 建 ” 菜 单 的 代码在 listbox1 的 Items属性里输入列表内将两个列表框的SelectionMode 属性值设置为

39、MultiExtended 支持多选精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 28 页13 / 28 初始状态考试如果没添加要求下面的添加代码就不要了。PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim i AsInteger For i = Me .ListBox1.SelectedItems.Count - 1 To 0 Step -1 的Me .ListBo

40、x2.Items.Add(Me .ListBox1.SelectedItems(i)代码Me .ListBox1.Items.Remove(Me .ListBox1.SelectedItems(i) Next EndSub PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click Dim i AsInteger For i = Me .ListBox2.SelectedItems.Count - 1 To 0 Step -1 的代码Me .L

41、istBox1.Items.Clear() EndSub PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click Me .ListBox1.Items.AddRange(Me .ListBox2.Items) 的代码Me .ListBox2.Items.Clear() EndSub PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e AsSystem.EventAr

42、gs) Handles Button5.Click IfMe .TextBox1.Text Then IfMe .ListBox1.FindStringExact(Me .TextBox1.Text) 0 Then Me .ListBox1.Items.Add(Me .TextBox1.Text) Else添加的 MsgBox(该项已经存在！ ) 代码EndIf EndIf EndSub 考试卷目如果没有删除操作，下面代码也就不要了。PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArg

43、s) Handles Button6.Click Dim i AsInteger For i = Me .ListBox1.SelectedItems.Count - 1 To 0 Step -1删除的代码Me .ListBox1.Items.Remove(Me .ListBox1.SelectedItems(i) Next EndSub6、新建工程test06，将其保存在考试目录下，要求：1） 在 test06 目录下新建access数据库 Student.mdb，在 access数据库中创建一个表student，表结构如下图所示，并按下图录入5条记录；student 表结构精选学习资料 -

44、 - - - - - - - - 名师归纳总结 - - - - - - -第 14 页，共 28 页15 / 28 student 表中的记录2） 在 vb2005 环境下，连接Student.mdb 数据库，在窗体中显示student表中记录；按网格方式显示，具体如下图所示。(15 分) 运行界面操作步骤 :1)新建工程test06 2)单击全面保存如下图所示，输入保存信息。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 15 页，共 28 页16 / 28 3）运行 Microsoft Office Access 2003 ，如下图所示。4）打

45、开文件菜单，选择新建，如下图所示。5）如下图所示，选择空数据库。6）选择 test06文件夹保存数据库，如下图所示。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 16 页，共 28 页17 / 28 7）单击创建后出现下图所示界面，双击使用“设计视图创建表”8）按题目要求输入表的结构，如下图所示。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 17 页，共 28 页18 / 28 9）输入完成成后，选择题目要求中带钥匙的字段，将其设置为主键。10）点击保存按钮，出现如下图所示界面，输入表名。点击确定按

46、钮。11）保存好后，出现如下图所示界面，双击表名，输入题目要求的记录内容。12）输入完成后，点击保存按钮，关闭Access 软件。13）关闭Access 软件后，回到vb 编辑界面，打开“数据”菜单，选择“添加新数据源”，如下图所示。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 18 页，共 28 页19 / 28 14）出现下图所示，选择数据库，点击下一步。15）点击新建连接按钮。连接数据库。如下图所示。16）点击新建连接后出现如下图所示界面，选择Microsoft Access 数据库文件。精选学习资料 - - - - - - - - - 名

47、师归纳总结 - - - - - - -第 19 页，共 28 页20 / 28 17）点击确定后，出现下图所示，点击浏览选择前面建好的数据库文件。单击确定按钮18）点击下一步按钮。19）出现下图所示界面，单击“是”按钮。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 20 页，共 28 页21 / 28 20）在单击下一步。21）出现下图界面，在“表”左面打勾，点击完成按钮，完成数据源连接。22）点击“数据”菜单，选择“显示数据源”。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 21 页，共 28 页

48、22 / 28 23）出现如下图所示界面24）将数据库表拖曳到form1 的上，出现如下图所示的界面，调整界面。点击全部保存。7、新建工程test07，将其保存在目录下，要求：1） 程序执行结果如下图；2） 此程序功能是：随机产生1个整数（整数的范围为0-100），并显示在第1 个文本框中，单击“判断”按钮，能判断该整数是奇数还是偶数，并显示在第2 个文本框中；3） 第 2 个文本框设置为不可修改；4） 单击“退出”按钮退出该程序。将其 ReadOnly 属性设置为True 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 22 页，共 28 页23

49、 / 28 单击“判断”按钮界面PrivateSub Form1_Load( ByVal sender As System.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load Randomize() Me .TextBox1.Text = Int(100 * Rnd() 产生一个随机数的代码EndSub PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click Dim x AsInte

50、ger x = CInt ( Me .TextBox1.Text) If x Mod 2 = 0 Then Me .TextBox2.Text = 偶数 Else Me .TextBox2.Text = 奇数 EndIf EndSub PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click End EndSub8、新建工程test08。超市为了促销，按购买货物的款数多少分别给予不同的优惠折扣，具体折扣情况如下：购物不足 100 元的，没有折