2009-05-12模拟考试参考答案.docVIP

天津中医药大学2008-2009学年第二学期 Visual Basic程序设计课程模拟考试及参考答案 2009-5-12 专业__________姓名__________学号__________ 一、选择题（30*2=60） 1.窗体文件的扩展名是____ A..bas B..cls C..frm D..res 答案 C 2.下列表述中不能判断x是否为偶数的是____ A.x/2=Int(x/2) B.x Mod 2=0 C.Fix(x/2)=x/2 D.x\2=0 答案 D 3.设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是____ A.窗体的Click事件过程的过程名是Myform_Click B.命令按钮的Click事件过程名是C1_Click C.命令按钮的Click事件过程的过程名是Command1_Click D.上述3种名称都是错误的 答案 B 4.1个二维数组可以存放1个矩阵.在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是 A.Dim a(-2 To 0,2) AS Integer B.Dim a(3,2) AS Integer C.Dim a(4,3)AS Integer D.Dim a(-1 To -4,-1 To -3)AS Integer 答案 B 5.若设置了文本框的属性PasswordChar=$,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是____ A.8个$ B.1个$ C.8个* D.无任何内容 答案 A 6.设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是____ A.Combo1.RemoveItem Combo1.Text B.Combo1.RemoveItem 4 C.Combo1.RemoveItem Combo1.ListCount D.Combo1.RemoveItem 5 答案 B 7.在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序 Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() K=1 For i=1 To m For j=1 To n a(i,j)=k k=k+1 Next j Next i End Sub Private Sub Command2_Click() Summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then Summ=summ+a(i,j) Else If j=1 Or j=n Then Summ=summ+a(i,j) End If End If Next j Next i Print summ End Sub 过程Command1_Click()的作用是二维数组a 中存放1个m行n列的矩阵；过程Command2_Click()的作用是____ A.计算矩阵外围一圈元素的累加和 B.计算矩阵除外一圈以外的所有元素的累加和 C.计算矩阵第1列和最后一列元素的累加和 D.计算矩阵第1行和最后一行元素的累加和 答案 A 8.以下循环语句中在任何情况下都至少执行一次循环体的是____ A.Do While 条件 循环体 Loop B.While 条件 循环体 Wend C.Do 循环体 Loop Until 条件 D.Do Until 条件 循环体 Loop 答案 C 9.已知有下面的过程 Private Sub proc1(a As Integer,b As String,Optional x As Boolean) …… End Sub 正确调用此过程的语句是____ A.Call