VB程序的设计期末复习试题

k = 3 c = 4

For j = 1 To 6 If j > 3 Then c = c + 6 Exit For Else

k = k + 2 End If Next j Print c, k End Sub

写出程序运行时单击窗体后，c,k的值分别是：

9. (6分)

Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1

Do While i < 8 i = i + 2 s = s + i Loop

Text1.Text = s End Sub

文件框Text1的输出结果是

10. (7分)

Sub test(i As Integer) i = i + 4 End Sub

Private Sub form_Click() Dim x As Integer x = 5

Print \Call test(x) Print \End Sub

.. ..

写出程序运行后，单击窗体时程序的运行结果。

四、完善程序题

1．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，将该课程名程添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。

Text1

List1 Command1

Command2

Command3

图 1

程序如下，请补充完整。 Private Sub Form_Load()

List1.AddItem \程序设计\ List1.AddItem \数据库应用\ List1.AddItem \信息管理系统\ List1.AddItem \原理与应用\ List1.AddItem \网络实用技术基础\

List1.AddItem \系统开发规范与文档编写\ List1.AddItem \信息系统测试\End Sub

Private Sub Command1_Click() If Text1.Text <> \

[1] '将文本框中的内容加到列表框中 Text1.Text = \ [2]

MsgBox \请在文本框中输入信息！\ End If

.. ..

End Sub

Private Sub Command2_Click()

[3] '删除选定的项目 End Sub

Private Sub Command3_Click()

If Command3.Caption = [4] Then Text1.Text = [5] Text1.SetFocus

Command1.Enabled = [6] Command2.Enabled = False

Command3.Caption = [7] Else

List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text =\

Command3.Caption = [8] End If End Sub

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

图1

程序如下，请补充完整。

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

'连接SQL Server数据库

.. ..

Dim strDB As String

strDB = \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] MsgBox “添加成功，请继续！” End If

Private Sub Command2_Click()

Unload Me End Sub

3．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。

现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。

.. ..