九江广播电视大学《C++语言程序设计》试题（A卷）.docVIP

九江广播电视大学《程序设计实践》试题 （A卷） 一、填空（每空4分，共20分） 1. 在VB中，要想获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按 键。 2. 使用ADO模型时，可通过 属性建立Recordset和Connection对象的连接。 3.以写方式打开D盘中的 Text.dat文件，正确的语句是 4. 数学表达式写成等价的Visual Basic表达式为 。 5. 将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大小。 二、回答问题（每题10分，共30分） 1. Private Sub Form_Click() Dim c As Integer, j As Integer, k As Integer k = 0 c = 1 For j = 1 To 5 If j 3 Then c = c + 4 Exit For Else k = k + 1 End If Next j Print c, k End Sub 写出程序运行时单击窗体后，c,k的值分别是： 2． Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = y + 3 Form1.Print x=; x, y=; y End SubEnd Sub 写出程序运行时连续单击三次窗体后，Form1上的输出结果。 3．Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i 9 i = i + 2 s = s + i Loop Text1.Text = s End Sub 文件框Text1的输出结果是： 三、完善程序题（第空10分，共50分） 列表框应用程序。要求在文本框Text1中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；按“统计”按钮，在文本框Text2中输出课程数量总数；按“结束”按纽，退出应用程序。程序运行结果如图1所示。 图1 程序如下，请补充完整。 Private Sub Form_Load() List1.AddItem 计算机应用基础 List1.AddItem 程序设计基础 List1.AddItem 软件技术基础 List1.AddItem VisualBasic程序设计 List1.AddItem SQLSERVER数据库应用 List1.AddItem 计算机专业英语 List1.AddItem Delphi程序设计 End Sub Private Sub Command1_Click() If Text1.Text Then [1] Text1.Text = [2] Else MsgBox 请在文本框中输入信息！ [3] End Sub Private Sub Command2_Click() List1.RemoveItem [4] End Sub Private Sub Command3_Click() Text2.Text = [5] End Sub Private Sub Command4_Click() Unload Me End Sub 1