10高技4班A卷doc.docVIP

第2页 第3页 第1页 常州信息职业技术学院 2012／2013学年第二学期VB试卷（A） 专业 课程名称 VB语言程序设计 教研室主任 _________________________ 系（部）主任________________ 试题 一 二 三 四 五 六 七 八 九 十 总分 得分 一、选择题（2x15） 1．x，y是整数型变量，z产生一个范围在[y，x]之间的随机整数的语句是　　　　。 A．z=Int(Rnd*(y-x+1))+x B．z=Int(Rnd*y) + x C．z=Int(Rnd*x)+y D．z=Int(Rnd*(y-x)) + x 2．默认Value属性的控件是　　。 A．单选框 B．文本框 C．标签框 D．列表框 3．在图1中，要在窗体Form1上部有“程序示例”字样，窗体属性应设置为　　　。 图1 A．Form1.Name=程序示例 B．Form1.Enabled =程序示例 C．Form1.Caption=程序示例 D．Form1.Show=程序示例 4．设整型变量a、b的当前取值分别为200与20，以下赋值与句中不能正确执行的是　　　　。 A. Text1 = a / b * a B. Text1 = a * a / b C. Text1 = 200 * a / b D. Text1 = a b a 5．在数据文件中，Reset语句的功能是　　　　。 A．重新设置文件的文件号 B．关闭所有用Open语句打开的文件 C．更改将要打开文件的类型 D．文件指针复位 6．运行下列程序： Private Sub form_Click() 　　x = 8: y = 2 　　Call fun1((x), y) 　　Print x, y End Sub Private Sub fun1(x, y) 　　s = x 　　x = s / y 　　y = s Mod y End Sub 单击窗体后，则在窗体上显示的结果是　　　。 A．4　2 B．8　2 C．8　0 D．2　4 7．运行下列程序： Private Sub Form_Click() 　　Dim y As Integer, x As Integer 　　Do Until x 20 　　　　x = x + 10 　　　　y = y + x 　　　　 If x 20 Then Exit Do 　　Loop 　　Print x, y End Sub 单击窗体后，则在窗体上显示的结果是　　　　。 A．10　20 B．30　 60 C．10　30 D．20　 60 8．运行下列程序： Private Sub Form_Click() 　　For i = 1 To 20 　　　　If fun1(i) Then 　　　　　　s = s + 1 　　　　End If 　　Next i 　　Print s End Sub Private Function fun1(y) As Boolean 　　If y Mod 2 0 Then 　　　　fun1 = False 　　Else 　　　　fun1 = True 　　End If End Function 单击窗体后，则在窗体上显示的结果是　　　。 A．110 B．10 C．0 D．20 ．运行下列程序： Private Sub Form_Click() 　　Dim a As Integer 　　a = 1 　　For i = 1 To 5 　　　　Call fun1(a) 　　Next i 　　Print a End Sub Private Sub fun1(x) 　　y = 2 　　Do 　　　　x = x + y 　　Loop Until x 10 End Sub 9.单击窗体后，则在窗体上显示的结果是　　　　。 A．5 B．1　2　3　4　5 C．19 D．7 10．运行下列程序： Dim b Private Sub Form_Click() 　　a = 1: b = 1 　　Call fun1(a) 　　Print X = ; a; ,Y = ; b End Sub Private Sub fun1(a) 　　b = 2 * a 　　a