发布时间 : 星期一 文章VB程序的设计期末复习试题更新完毕开始阅读da7ec3d0eef9aef8941ea76e58fafab068dc444e
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)时关闭本窗体。
.. ..