1、华东交通大学vb复习题1带参考答案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)
2、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) D
3、im 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编写如下单击事件，单击Co
4、mmand1的运行结果是 。 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) 变量名的第一个字符
5、必须是字母 (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属性设置为一个字符（如*），则在运行时，文本框中输入的字符仍然显示出来
6、，而不显示星号（*），原因可能是 (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=2 Print x+1;x+1 (a) 2+1 2+1 (b) 3 3 (c) 3 4 (d) x+1
7、 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) 按地址传递与按值传
8、递 (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
9、+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 = Inp
10、utBox(请输入一个整数) 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
11、 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找出最大值,并找出最大值的位置
12、,并求出所有元素的和7下列程序运行后的结果是 。 Private Sub Command1_Click() Const P=3 Dim a(8) As Integer For i=1 To 8 a(i)=8-i Next i Print 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 = i For j = i + 1 To n If a(j) a(k) Then k = j Next If k i Then t = a(k) a(k) = a(i) a(i) = t End IfNextFor i = 1 To n Print a(i); If i Mod 6 = 0 Then Print End IfNext
