vb程序设计教程第五版实验题答案(vb程序设计实验教程中国农业出
vb程序设计教程答案
Option Explicit
Private Sub Command1_Click()
Dim a() As Integer
Dim i, j, n
ReDim a(9, 9)
For i = 1 To 8
Print Tab(25 - i * 2);
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
Print a(i, j);
Next j
Next i
End Sub
VB程序设计教程 第五版 蒋加伏 北京邮电大学出版社 习题答案
在窗体上输入100～200之间(包括100和200)不能被3整除的奇数及这些数的和
求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)
