程序设计语言VB复习题.doc

来源:百度知道 编辑:UC知道 时间:2024/05/25 11:08:07
一、选择题
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) Sc

一.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