Visual Basic程序设计模拟练习题二

Visual Basic程序设计模拟练习题二

一、单项选择题（每小题2分，共30分） 1．后缀为.bas的文件表示（ ）。

A．工程文件 B．窗体文件

C．窗体二进制数据文件 D．标准类模块文件

2．Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（ ）。 A．从主程序开始执行 B．按过程顺序执行 C．按模块顺序执行 D．事件驱动 3．有程序代码如下： Text1.Text = \"你好\"

则Text1，Text ，和\"你好\"分别代表（ ）。 A．对象，值，属性 B．对象，属性，值

C．对象，方法，属性 D．属性，对象，值 4.以下叙述中错误的是（ ）。

A．一个工程中可以包含多个窗体文件

B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义

5．将数据项“China”添加到列表框（List1中成为第一项，应使用的语句是（ ） A．List1.AddItem\"China\" B．List1.AddItem\"1,China\" C．List1.AddItem\"China\．List1.AddItem\"China\ 6．在VB中，下列各项合法的变量名是（ ）。 A．Integer B．ab-c

C．2abc D． a_bc

7．下列控件中不能响应Click事件的是（ ）。

A．TextBox B．Timer C．Label D．ListBox 8．不属于VB数据库引擎的是（ ）

A．ODBC B． Jet引擎 C．BDE D．OLE DB 9．确定一个控件在窗体上位置的属性是（ ） A ．Top或Left B．Top和Left

C．Width或Height D．Width和Height

10．如果希望以模态方式显示窗体Form1，下列正确的语句是（ ） A．Form1.Show 0 B．Form1.Show 1 C．Form1.Show D．以下都不正确

11．改变驱动器列表框的Drive属性值，将激活（ ）事件。 A．KeyDown B．KeyUp C．Scoll D． Change

12．如果创建了命令按钮数组控件，那么该命令按钮的Click事件的参数是（ ） A．Tag B．Caption

C．Index D．没有参数

13.在下列选项中，不能将图像装入图片框和图像框的是（ ） A．在界面设计时，通过Picture属性装入

B．在界面设计时，手工在图像框和图片框中绘制图形 C．在界面设计时，利用剪贴板把图像粘贴上

D．在程序运行期间，用LoadPicture函数把图形文件装入 14． 在VB程序中逐语句调试的键是（ ）。 A．F8键 B．F9键 C．CtrlF8键 D．CtrlF9键

15．当Winsock控件处于侦听状态时，其State属性的值是（ ） A．0 B．1 C．2 D．3 一、单项选择题（每小题2分，共30分）

1.D 2.D 3.B 4.C 5.C 6.D 7.B 8.C 9.B 10.B 11.D 12．C 13．B 14.A 15.C 二、填空题（每小题2分，共20分）

1．欲设置定时器的时间间隔为2秒，则属性Interval的值为 。 2．表达式17/3-2^3*7 MOD 6的值是 。

3．在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用For×××Next循环循环；若要求先判断循环进行的条件，可使用 循环。 4．为了在运行时把当前路径下的图形文件flower.jpg装入图片框P1，所使用的语句为 。

1

5. 将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大小。

6．Winsock控件主要用来编制基于TCP/IP或 协议的网络应用程序。如果希望得到本地计算机的 IP地址，可以使用Winsock控件的 属性。

7．在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性指定。

8．设某个程序中要用到一个二维数组，要求数组名为R，类型为整型，第一维下标从-2到2，第二维下标从0到4，则相应数组声明语句为 。

9．闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是 。 10．若窗体的左上角坐标为（-250，250），右下角坐标为（300，0），则X轴的正向向 ，Y轴的正向向 。 二、填空题（每空1分，共15分） 1．2000 2．0

3．For×××Next循环 Do×××Loop循环 4．P1. Picture = LoadPrcture(\"flower.jpg\") 5．True

6. UDP LocalIP

7．Name Index

8.Dim R(-2To 2,0 To 4) As Integer

9. Y MOD 4=0 And Y MOD 100<>0 OR Y MOD 400=0 10．右 上

三、阅读程序题（共25分）

阅读下列程序并写出程序运行结果 1．(6分)

Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 4 y = y + 6

Form1.Print \"x=\"; x, \"y=\"; y End Sub

写出程序运行时连续单击三次窗体后，Form1上的输出结果。

2．(6分)

Private Sub Form_Click()

Dim i As Integer, k As Integer k = 1

For i = 1 To 4 If i > 3 Then k = k + 4 Exit For Else

k = k + 3 End If Next i Print i, k End Sub

写出程序运行时单击窗体后，Form1上的输出结果。 3. (6分)

Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 6 i = 2

Do While i < 7 i = i + 4 s = s + i Loop

Text1.Text = s End Sub

写出程序运行后，单击Command1按钮，文件框Text1的输出结果是：

2

4. (7分)

Function F(a As Integer) Static c b = b + 3 c = c + 3 F = a + b + c End Function

Private Sub Command1_Click() Dim a As Integer a = 5

For i = 1 To 4 Print F(a) Next i End Sub

写出程序运行时，单击命令按钮在窗体上的输出结果。 三、阅读程序题（每小题5分，共20分） 1.

x=4 y=6 x=4 y=12 x=4 y=18 2.

4 14 3．

22 4． 11 14 17 20

四、完善程序题（共10分）

已知存在一名为“学生”的SQL Server数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。请编写一个简单的应用程序，向students表中添加学生记录。程序的基本逻辑是：当窗体被加载时，程序联接SQL Server数据库；当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。其运行界面如下图所示。

图1

程序如下，请补充完整。

’声明对象变量ADOcn，用于创建与数据库的连接 Private ADOcn As Connection Private Sub Form_Load() ’连接SQL Server数据库 Dim strDB As String

strDB = \"Provider=SQLOLEDB;LSF;User ID=sa;Password=;Database = [1] \" If ADOcn Is Nothing Then Set ADOcn =[2] [3] End If End Sub

Private Sub Command1_Click() ’增加学生记录

Dim strSQL As String

Dim ADOrs As [4] ADOrs. [5] =ADOcn

ADOrs.Open “Select 学号 From Students Where 学号=”+” ‘ “+Text1+” ‘ “ If Not [6] Then

MsgBox “你输入的学号已存在，不能新增加！” Else

StrSQL=”Insert Into students (学号,姓名,,籍贯, 性别)

StrSQL=strSQL+Values(”+” ‘ “+text1+” ‘ , ‘ “+text2+” ‘,’ “+text3+” ‘,’ “+text4+” ‘)” ADOcn.Execute [7]

3

MsgBox “添加成功，请继续！” End If

Private Sub Command2_Click() Unload Me End Sub

四、完善程序题（共10分） [1]学生

[2]New Connection [3] ADOcn.Open strDB [4] New Recordset [5] ActiveConnection [6] ADOrs.EOF [7] strSQL

五、编写程序题（共15分）

请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。程序运行结果如图2所示。 图2

五、编写程序题（共15分） 参：

Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then y = x Else

If x < 200 Then y = 9.5 * x Else

If x < 300 Then y = 0.9 * x Else

If x < 500 Then y = 0.8 * x Else

y = 0.7 * x End If End If End If End If

Text2.Text = y End Sub

4