Question

求vB程序设计复习题答案

案

Answer 1

一、选择题
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)