一、单选题
1．中的数据数据类型转换有两种方式，它们分别是隐式转换和显示转换。
下面给出的哪个关键字不是中的类型转换关键字( )。
D
A CStr
B Cint
C CLng
D Delegate
2．. 以下程序的执行后，结果为（）B
Dim a As Integer=0，j As Integer
For j=1 TO 20 Step 2
a=a+j\5
Next j
TextBox1.Text=Str(a)
A 12
B 16
C 40
D 100
3．加载窗体时触发的事件是（）B
A、Click
B、Load
C、Gotfocus
D、DoubleClick
4．改变窗体的标题，需修改窗体的（）属性A
A、Text
B、Name
C、Title
D、Index
5．设置计时器时间间隔的属性是（）C
A、Enabled
B、Name
C、Interval
D、Modifiers
6．以下变量名中合法的是（）C
A）x2-1
B）print
C）str_n
D）2x
7．按照结构化程序设计的要求，下面____语句是非结构化程序设计的语句。
C A）if 语句B）For语句C）Goto语句D）Select Case语句8．下面控件中，没有Text属性的是________ D
A）框架GruopBox B）列表框ListBox C）复选框CheckBox D）定时器Timer
9．在设计状态，列表框ListBox中的选项可以通过________属性设置。
D A）List B）Items.Count C）Text D）Items
10．可以产生30-50（含30和50）之间的随机整数的表达式是（）A A）Int(Rnd*21+30)
B）Int(Rnd*20+30)
C）Int(Rnd*50-Rnd*30)
D）Int(Rnd*30+50)
二．读程序写结果：
1．有如下过程代码：
Sub var_dim()
Static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa;numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是6 1
2．在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 5 To 1 Step -0.8
TextBox1.Text &= Int(i)
Next i
End Sub
运行程序，单击命令按钮，文本框中显示的内容为
3．标准模块中有如下程序代码：
Public x As Integer, y As Integer
Sub var_pub()
x = 10 : y = 20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
Call var_pub()
x = x + 100
y = y + 100
TextBox1.Text = x & " " & y
End Sub
运行程序后单击命令按钮，窗体上显示的是100 120
三、综合题
1．程序填空题
工程中有Form1窗体。
程序运行时，在Form1中名称为Textbox1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Button1），则根据输入的圆的半径计算圆的面积，并在Textbox1的文本框中显示出来，如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数
据！”请填空。
Private Sub Command1_Click()
If Text1.Text=”” Then
MsgBox “请输入半径！”
Else If Not IsNumeric( 1 ) Then
MsgBox “请输入数值数据！”
Else
r=val( 2 )
textbox1.text=“圆的面积是”&3.14*__ 3 __
End If
End Sub
答案：1。
Textbox1.text 2. Textbox1.text 3. r*r
2．设有整形变量s，取值范围为0~100，表示学生的成绩。
有如下程序段：If s>=90 Then
Level=”A”
Else If s>=75 Then
Level=”B”
Else If s>=60 Then
Level=”C”
Else
Level=”D”
End If
下面用SelectCase结构改写上述程序，使两段程序所实现的功能完全相同。
请填空。
Select Case s
Case 4 >=90
Level=”A”
Case 75 To 89
Level=”B”
Case 60 To 74
Level=”C”
Case 5
Level=”D”
6
答案：4. iS 5. Else 6. End Select
3.简答题：过程和函数的区别有哪些？
4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式“a>=0 AND a+c>b+3 OR NOT d”的值是_____False_________。
四、编程题
1．编一求两数m，n最大公约数的函数f（m，n）。
主调程序在两个文本框中输入数据，在TextBox3中显示结果，如图所示。
p93
2．编一程序，显示出所有的水仙花数。
所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。
例如：153是水仙花数，因为153=13+53+33。
3.随机产生10个0-100之间的整数放入数组，显示数组各元素的值，求出最大值、最小值和平均值。
界面如图所示。
Public Class Form1
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Dim a(9) As Integer, i%, min%, max%, avg!
Label1.Text = ""
For i = 0 To 9
a(i) = Int(Rnd() * 100)
Label1.Text &= a(i) & " "
Next i
min = a(0)
max = a(0)
avg = a(0)
For i = 1 To 9
If a(i) < min Then min = a(i)
If a(i) > max Then max = a(i)
avg += a(i)
Next i
avg /= 10
Label1.Text &= vbCrLf & "Min="& min & " Max="& max & " Avg=" & avg
End Sub
End Class
4．写出冒泡排序的函数。