程序设计试卷及答案

1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（）
A)Load
B)Click
C)Unload
D)GotFocus

2.无论何控件，都具有一个共同属性。这个属性是（）
A)Text
B)Font
C)Name
D)Caption

3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）
A)，
B)；
C)、
D)：

4.表达式3∧2*2+3 MOD 10\4的值是（）
A)18
B)1
C)19
D)0

5.下面的变量名合法的是（）
A)k_name
B)k ame
C)name
D)k-name

6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（）
A)time1 = #11:34:04 #
B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"#
D)time1 = Format("hh:mm:ss",Time)

7.表达式12000 + "129" & 200屠波的值是（）
A)12329
B)"12129200"
C)"12000129200"
D)"12329"

8.若设a = 4,b = 5,则下列表达式值为真的是（）
A)(True+a)>0 And b>10
B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b)
D)a>b Xor b+3>5

9.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是（）
A)Appearance
B)Visible
C)Enable
D)Autoredraw

10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序运行后，单击该命令按钮三次，屏幕上显示的值是（）
A)4 12
B)0 4
C)4 8
D)8 12

11.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）
A)属性、控件和方法

B)属性、事件和方法
C)窗体、控件和过程
D)控件、过程和模块

12.下列程序段错误的是（）
A)Dim a As Integer
a = array(1,2,3,4)
B)Dim a(),b()
a = array(1,2,3,4):b = a
C)Dim a As Variant
a = array(1,"asd",true)
D)Dim a() As Variant
a = array(1,2,3,4)

13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（）
A)"I am happy!"

B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!"
D)"I am student am happy!"

14.下列程序段中，能正常结束循环的是（）
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1

Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1

15.引用列表框（List1）最后一个数据项应使用的表达式是（）
A)List1.List(List1.ListCount)
B)List1.List(List1.ListCount-1)
C)List1.List(ListCount)
D)List1.List(ListCount-1)

16.有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)

x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Print
Next i
End Sub
运行时输入出的结果是（）
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6

3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9

17.在窗体上画一个名称为Command1的命令按钮，编写如下程序：
Private Sub Command1_Click()
Print pl(3,7)
李天民End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else

If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是（）
A)2
B)1
C)0
D)16

18.以下属性和方法中，可重定义坐标系的是（）
A)DrawStyle属性
B)DrawWidth属性

C)Scale方法
全文搜索引擎D)ScaleMode属性

19.在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text = ""
Text1.SetFocus
For i = 1 To 5
Sum = Sum +i
Next i
= Sum
End Sub
上述程序的运行结果是（）
A)在文本框中输出15
B)在文本框中输出0
C)在文本框中输出不定值

D)出错

20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（）
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "优"
煤矿施工组织设计Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
易切削不锈钢

ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "优"
End If
C)If x > = 90 Then
Print "优"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"

ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "优"
Case x > = 80
Print "刘智仁良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else

Print "不及格"
End Select

本文发布于:2024-09-21 15:34:00，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/394631.html

上一篇：Elasticsearch索引信息排序命令示例

下一篇：塑胶模具中英文对照

标签：窗体下列属性过程

留言与评论（共有 0 条评论）