VB练习题

来源：用户分享时间：2025/10/29 0:23:18 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

Temp = 1 For i = 1 To n

Temp = Temp * i Next i F = Temp End Function

Private Sub Form_Click()

Dim k As Integer, nj As Integer k = 5 nj = F(k)

Print k; \！=\End Sub

写出程序运行时，单击窗体Form1上的输出结果。四、完善程序题（共10分）

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

程序如下，请补充完整。

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

strDB = \ \If ADOcn Is Nothing Then

[2] [3] End If End Sub

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

Dim strSQL As String

Dim ADOrs As [4] [5] =ADOcn

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

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

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

StrSQL=strSQL+Values(”+” ? “+text1+” ? , ? “+text2+” ?,? “+text3+” ?,? “+text4+” ?)” ADOrs.Execute [7]

- 9 -

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

Private Sub Command2_Click() Unload Me End Sub 2．

在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为E盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如图2所示。图2 程序如下，请补充完整。 Private Sub Form_Load()

Drive1.Drive = [1] [2] = \End Sub

Private Sub Drive1_change() [3] = Drive1.Drive Text1.Text = Drive1.Drive End Sub

Private Sub Dir1_Change() [4]

Text1.Text = Dir1.Path End Sub

Private Sub File1_click()

Picture1. [5] = LoadPicture(File1.Path + \ FileName = File1.Path + \ Text1.Text = [6] End Sub

五、编写程序题

1.按下述规定，编写一征收所得税程序。（1）收入在1000元以内，不纳税；

（2）收入超过1000元以上的部分，纳税20%

（3）当收入达到5000元或超过时，5000元以上的部分，纳税22%。程序运行界面如图3所示：

- 10 -

图3 答案

一、单项选择题

1.D 2.C 3.B 4.C 5.C 6.B 7.B 8.A 9.B 10.D 16.A 17.D 18.C 19.D 20.C 21．B 22．B 23．B

二、填空题（每小题2分，共20分） 1．.vbp

2．.frm .cls 3．7 4．4 5．Timer

6．Variant 或变体型

7．P1. Picture = LoadPrcture(\8．Dim A(0 To 2,1To 3) As Integer 9．6

10．引用参数传递（或按址传递）按值传递 11．Name Index 12.右上 13Picture

14.本地数据库、远程数据库 15.数据库引擎 16.标准 Public

17.整个应用程序 Public 18.CP/IP UDP 三、阅读程序题 1.s =6 s =11 s =44 2. 3 4 6 4 9 4 3. 14

- 11 -

11.D 12.C 13.B 14.D 15.B 24．C 25.D 26.D 27.A 28.C 4. 14 5． 26 6． 29 7． 30 20 20 30 8．

5！=120

四、完善程序题 1． [1]学生

[2] Set ADOcn =New Connection [3]ADOcn.Open strDB [4]New Recordset

[5] ADOrs.ActiveConnection [6]If Not ADOrs.EOF [7] str SQL 2． [1] \

[2]File1.Pattern [3] Dir1.Path

[4] File1.Path = Dir1.Path [5] Picture [6] FileName 五、编写程序题参考答案：

Private Sub Command1_Click() Dim x As Integer, tax As Single x = Val(Text1.Text) If x <= 1000 Then tax = 0

ElseIf x <= 5000 Then tax = (x - 1000) * 0.2 Else

tax = (x - 5000) * 0.22 + 4000 * 0.2 End If

Label3.Caption = tax End Sub

- 12 -

搜索更多关于： VB练习题的文档

VB练习题.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c0q9wm3kixh23x6i11q2i_3.html（转载请注明文章来源）