VisualBasic程序设计期末综合练习及答案

Private Sub Form_Click()

Dim a As Integer, b As Integer a = 3: b = 4 Change a, b Print a,b

End Sub

写出程序运行时单击窗体后，Form1上的输出结果 11.

Private Sub Form_Click( ) Static Sum As Integer I=1

While i<=3

Sum=Sum+I I=I+1 Wend

Print Sum End Sub

点击两次后，Sum的值应该是：

四、完善程序题

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

Text1

List1 Command1 Command2 Command3

图 1

程序如下，请补充完整。

9

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 = False

Command2.Enabled = [6] Command3.Caption = \修改确认\ Else

List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = [7] Command3.Caption = \修改\ End If

End Sub

2．已知SQL Server数据库管理系统中存在名称为“学生”的数据库，其中的“students”数据表的结构及初始记录如表1所示。要求使用ADO对象和MSFlexGrid控件设计数据库列表显示程序。程序的设计界面和运行结果如图2、图3所示。

表1 学号 姓名 专业 10

2004001 2004003 2004002 张红 李强 王丽

软件专业 会计专业 软件专业 图2

图3

程序如下，请补充完整。

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

'ReadFromTable过程 Private Sub ReadFromTable() Dim strtmp As String

Dim ADOrs As [1] ADOrs.ActiveConnection = ADOcn ADOrs.Open [2]

MSFlexGrid1.Clear

11

MSFlexGrid1.Rows = 0

MSFlexGrid1.Cols = 3

strtmp = \学号\姓名\专业\ MSFlexGrid1.AddItem strtmp

Do While Not ADOrs.EOF

strtmp = ADOrs(\学号\姓名\专业\ MSFlexGrid1.AddItem strtmp [ 3] Loop

MSFlexGrid1.FixedCols = 0 MSFlexGrid1.FixedRows = 1 End Sub

Private Sub Form_Load()

'定义数据库连接字符串

Dim strDB As String

'用于连接SQL Server数据库，其中: 'Server为服务器名称

'User ID为登录账号 'Password为登录口令

'Database为具体的数据库名

strDB = \学生\

'如果还没有建立与数据库的连接，则用以下代码创建。

If ADOcn Is Nothing Then

Set ADOcn = [4]

ADOcn.Open [ 5] '连接SQL Server数据库 End If

ReadFromTable '调用过程显示students表中的记录 End Sub

Private Sub Command1_Click() Unload Me End Sub

3．创建一个绘图程序。当程序运行时，单击“绘图“按钮，在窗体的Picture控件上画出[-?，?]即[-3.14,3.14]区间的余弦曲线。要求将图片框的坐标系定义为左上角为（-4，2），右下角为（4，-2），并在图片框中画出坐标的x轴和y轴。程序运行界面如图4所示。

12