求vB程序设计复习题答案

一、选择题

1、在Visual Basic6.0中规定工程文件的扩展名是（A）。

（A）vbp （B）for （C）frm （D）bas

2、在Visual Basic中,以下选项中表示单击事件的是（B）。

（A）KeyUp （B）Click（C）Activate （D）Load

3、下述可以输入数据的是（D）。

（A）Print （B）Msgbox （C）Clear （D）InputBox

4、图片加载语句Picture1.Picture=Picture(“d:\x\123.bmp”) 不能加载图片，其中错误的地方是（D）。

（A) Picture1 （B).Picture （C) =Picture （D) (“d:\x\123.bmp”)

5、如果要处理3.1415类数据，使用的变量类型应该是（A）。

（A） Single （B） Long（C） Integer （D） String

6、Len(“People”)的值是（A）。

（A）6 （B） 7（C）8（D） 9

7、语句Dim x As Integer作用是:将x定义为（B）变量。

（A）单精度型 （B）整型 （C） 布尔型（D）字符型

8、在Select判断结构中，下面的表述中不正确的是（D。

（A）Case 1 （B）Case a >5 （C）Case 3 To 6 （D) Case is <10

9、下列关于Exit For 的说法，正确的是（B）。

（A）它可以退出任何类型的循环 （B）一个循环只能有一个Exit For

（C）每个循环必须有Exit For （D）Exit For本身是无条件退出循环

10. 当拖动滚动条中的滚动块时，将触发滚动条的事件是（C）。

（A) Move （B) SetFocus （C) Scroll （D) Change

二、简述下图程序界面的设计步骤（包括添加控件、设置属性和编程，）

三、程序阅读题

1、阅读下列程序段

Option Explicit

Private Sub Command1_Click()

Dim str1 As String

Dim str2 As String

str1 = "ABCDEFG"

MySub str1, str2

Print str2

End Sub

Private Sub MySub(ByVal a As String, b As String)

Dim c As String

Dim i As Integer

For i = Len(a) To 1 Step -1

c = c+ Mid(a, i, 1)

Next

b= c

End Sub

程序运行后，“print”语句的输出结果是___ _。

四、编写程序

1、利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。

2、 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。

答案：

一.4.应选c,picture改为Load.Picture

三.GFEDCBA

四.1. If fz_0.Text = "" Then

MsgBox("请输入!")

Exit Sub

End If

s = fz_0.Text

n = CInt(s)'此题输入n为10即可

For i = 0 To n

MsgBox("请输入第" &Str(i + 1) &"个数字")

ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型

Print(ar(i))

Next

Print("排序后")

'排序

For i = 1 To n - 1

intmin = i '对第i遍排序，初始假定第i个元素最小

For j = i + 1 To n '找出最小的元素序号

If ar(j) <ar(intmin) Then intmin = j

Next j

'将找出的最小元素与第i个元素交换

sngt = ar(i)

ar(i) = ar(intmin)

ar(intmin) = sngt

Next i

'打印输出

For i = 1 To n

Print(ar(i)) '不换行输出

Next i

'输出后保存就可以了()

四.2. Dim i As Integer, j As Integer

For i = 100 To 200

If i Mod 3 = 0 Then

If j = 0 Then

j = i

Else

j = j + i

End If

End If

Next

MsgBox(j)

Option Explicit

Private Sub Form_Click()

Dim x As Single, msg As String

Dim s As String

msg = InputBox("请输入分数x:")

If Trim(msg) = "" Then Exit Sub '如果按取消按钮就不做处理

x = Val(msg)

Select Case x

Case Is >100

s = "请输入小于100的数值"

Case Is >= 60

s = "及格"

Case Is >= 0

s = "不及格"

Case Else

End Select

Print s

End Sub

一、判断题(本大题共10小题，每小题2分,共20分，答案用A表示正确，B表示错误)

1.A 2.A 3.B 4.A 5.A 6.B 7.B 8.B 9.B 10.B

二、选择题(本大题共10小题，每小题2分,共20分)

1.下列表示条件“性别（Sex）为男、职称（Duty）为副教授以上、年龄（Age）小于40岁”的VB逻辑表达式中，不正确的是( A )

2.下列表达式中，与其他3个表达式运算结果不相同的是( B )

3.设a = 2， b = 0，则语句 Print (a = 2) And (b = -2) 的输出结果是( B )

4.下面程序片段运行后，显示的结果是( C )

5.若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为( A )

6.下列关于For...Next 语句的说法正确的是( D )

7.改变控件在窗体中的左右位置应修改的控件属性是( B )

8.在VB中，如果要创建“年级”和“班级”两组单选按钮，具体的做法是( C )

9.下列关于计时器控件的说法中错误的是( D )

10.若要将窗体从内存中卸载出去，其实现的方法是( D )

---