华东交通大学vb复习题1(带参考答案).doc

1下列用来求两个数的较大值的程序中，错误的是 。(A) max=x : If y=x Then max=y(B) If y=x Then max=y : max=x(C)max=Iif(xy , x , y)(D)If xy Then max=x Else max=y2 设计动画时，用计时器控件的 属性来控制动画速度。(A)Enabled(B)Timer(C)Interval(D)Index3若要在文本框Text1上按回车键来激发运行某段程序，则该程序段应编写在Text1的 事件中。(A) Change(B)KeyPress(C)Click(D)GotFocus4语句Print A+2的运行结果是 。(A) A+2(B)A(C)2(D)运行出错5语句Print AB12 + 34的运行结果是 。(A)AB1234(B)1234(C)46(D)运行出错6若要将标签控件的文字居中对齐，应将其Alignment属性设置为 。(A)0(B)1(C)2(D)37表达式x=x+1是 。(A) 关系表达式(B) 赋值表达式(C) 算术表达式(D) 逻辑表达式8下列定义数组的语句，错误的是 。(A)Dim a(10)(B) Dim a(2 To 2) as Variant(C) Dim a(-3 To 9)(D)Dim a(-2 To 0)9下列有关过程的说法错误的是 。(A)可以定义没有参数的过程(B)过程的定义不能嵌套，但过程的调用可以嵌套(C)过程可以通过参数的地址传递向主调程序返回结果(D)过程不可能向主调程序返回结果10在+、Not、And、Or四个运算符中，优先级最低的是 。(A)+(B)Not(C)And(D) Or11下面有关For循环的说法中，正确的是 。(A)循环初值必须小于终值(B)步长为0时，循环是死循环(C)循环变量可以是字符型(D)For循环不可能有死循环12对Command1编写如下单击事件，单击Command1的运行结果是 。Private Sub Command1_Click() x = 4 If x 2 15 Then y = 1 Print yEnd Sub(A)1(B)2(C)3(D) 413在Visual Basic 6.0中，下列变量名合法的是 。(A)cosX(B)cos(x)(C)2y(D)x-y14工程文件的扩展名是 。(A) .vbp(B).frm(C).res(D).cls15双击窗体窗口，打开的窗口是 。(A)属性窗口(B)资源管理器窗口(C)代码窗口(D)布局窗口16下列叙述中不正确的是 (A) 变量名的第一个字符必须是字母(B) 变量名可以包含小数点或者内嵌的类型声明字符(C) 变量名的长度不超过255个字符(D) 变量名不能使用关键字17产生10,37之)间随机整数的Visual Basic表达式是 (a)Int(Rnd*27)+10(b)Int(Rnd*27)+11(c)Int(Rnd*28)+10(d)Int(Rnd*28)+1118函数Ucase(Mid(visual basic,8,5)的值是 (a)BASIC(b)visual(c)VISUAL(d)basic19若将PasswordChar属性设置为一个字符（如*），则在运行时，文本框中输入的字符仍然显示出来，而不显示星号（*），原因可能是 (A) 文本框的MultiLine属性值为True(B) 文本框的Locked属性值为True(C) 文本框的MultiLine属性值为False(D) 文本框的Locked属性值为False14下面的过程定义语句中合法的是 (a)Sub Proc(ByVal n( )(b)Sub Proc(n) As Integer(c)Function Proc(ByVal n)(d)Function Proc(Proc)15下列程序段的执行结果是 x=2Print x+1;x+1(a)2+1 2+1(b)3 3(c)3 4(d) x+1 x+116决定窗体标题栏显示内容的属性是 (a)Caption(b)Name(c)Text(d)BackStyle17.下列语句中正确的是 (A) Text1.Text+Text2.Text=Text3.Text(B) a=Inputbox(Hello)(C) 12Label.Caption=1234(D) Command1.Name=CmdOk18.要使滚动条表示的最小值为10，应设置其 属性(a)MinChange(b) Min(c) Minimize(d)SmallChange19.在过程调用中，参数的传递可以分为 两种方式(a)按地址传递与按值传递(b)按值传递与按位置传递(c)按参数传递与按地址传递(d)按位置传递与按参数传递20. 如下数组声明语句， 正确。(A) Dim a3 , 4 As Integer(B) Dim a(3 , 4) As Integer(C) Dim a(n , n) As Integer(D) Dim a(3 4) As Integer21. 数学关系3x10表示成正确的VB表达式为 。(a)3=x10(b)3=x And x=3 Or x10(d)3=x And yes 的结果是 False 。2数学表达式 sin150+的VB表达式为 sin(15*PI/180)+sqr(x+e3) 。3若要在运行时将标签Label1的字体大小改为20磅字，对应的设置语句 Label1.fontsize=20 。4表达式Abs(-3) * 10 6 / 2的值为 10 。(选*/再)5结构化程序设计的三大结构分别是 顺序 、 选择 和 循环 。6计时器控件的Interval属性的默认单位是是 毫秒 。7根据数组中包含的元素个数是否固定，可将数组分为 静态数组 和 动态数组 。8对Command1编写如下单击事件，单击Command1后在输入对话框中输入整数75后按回车键，程序的运行结果是 3 。Private Sub Command1_Click() Dim x% x = InputBox(请输入一个整数) If x 80 Then Print 5 ElseIf x 60 Then Print 3 Else Print 1 End IfEnd Sub9下面的循环结构能不能正常结束（能/不能） 。i = 3 Do i = i + 2 Loop Until i Mod 2 = 010对Command1编写如下单击事件，单击Command1的运行结果是 8 。Private Sub Command1_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = 2 * i Next i Print a(a(a(1)End Sub11InputBox函数返回值的类型是 String ，Time()函数返回值的类型是 日期型(Date) 。12下面的程序用于求3个数中的最大数。Private Sub Command1_Click( ) a=Val(InputBox(请输入第一个数) b=Val(InputBox(请输入第二个数) c=Val(InputBox(请输入第三个数) max=a : min=a If b a Then max=b If bmax Then max=c If c max Then max = ia(i)最大值 imax = I 位置 End IfNext i找出最大值,并找出最大值的位置,并求出所有元素的和7下列程序运行后的结果是 。 Private Sub Command1_Click()Const P=3Dim a(8) As IntegerFor i=1 To 8a(i)=8-iNext iPrint a(a(P)End Sub1 编写命令按钮Command1的单击事件，随机产生N个400,500范围的随机整数，按照从大到小的顺序以每行6个的要求输出。答案：n% = InputBox(请输入一个整数：)Dim a() As IntegerReDim a(1 To n)For i = 1 To n a(i) = Int(Rnd * 101 + 400)NextFor i = 1 To n - 1 k