vb实验教程答案

合集下载

vb实验报告(答案)

Private Sub Cmd1_Click()
Print "数理化"
End Sub
Private Sub Cmd2_Click()
Print "政史地"
End Sub
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
A. Text1.MaxLength = 0 B. Text1.Enabled = False
C. Text1.Visible = FalseD. Text1.Width = 0
5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。
A、StyleB、CaptionC、EnabledD、Default
试验报告（1）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
VB环境的熟悉与应用
成绩评定
所用
软件
Visual Basic 6.0
教师签名
实
验
目
的
或
要
求
1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
2．初步了解几个常用控件的使用方法。
实
验
步
骤
、
心
得
体
会
1、在vb中____C_____被称为对象。
10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。
11、窗体边框类型的默认值是___2___。
9、Visual Basic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。

大学计算机VB实验答案

计算机VB实验内容实验二1. 《实践指导》P10，实验1，设计一个加法器程序（请参考本次实验中实例2）。

（程序实际运行效果可参考程序“Prg3.exe” ）保存要求：(1)在lab02文件夹中新建子文件夹“prg3”，用于保存本题的程序；(2)将本题的工程文件命名为“project3.vbp”，窗体文件命名为“form3.frm”。

注：该题的第5项要求中关于“同时第一个文本框获得焦点”部分不要求实现过程Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = a + bLabel2 = cEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Label2 = ""End Sub2. 编写一个标签变化程序（请参考本次实验中实例题1来完成，如下图1所示）（程序实际运行效果可参考程序“Prg4.exe” ）保存要求：(1)在lab02文件夹中新建子文件夹“prg4”，用于保存本题的程序；(2)将本题的工程文件命名为“project4.vbp”，窗体文件命名为“form4.frm”。

设计要求：(1)单击窗体（Form1），则窗体打印输出文字“你点击了窗体”（如下图2所示）(2)单击按钮Command1，则在Label1中显示“你点击了按钮Command1，请进入”，字体大小15磅，字体为宋体（如下图3所示）(3)单击按钮Command2，Label1显示“你点击了按钮Command2，请离开”，字体大小25磅，字体为黑体（如下图4所示）（图1）（图2）（图3）（图4）过程Private Sub Command1_Click()Label1.FontSize = 15Label1.FontName = "宋体"Label1 = "你点击了按钮Command1，请进入"End SubPrivate Sub Command2_Click()Label1.FontSize = 25Label1.FontName = "黑体"Label1 = "你点击了按钮Command2，请离开"End SubPrivate Sub Form_Click()Form1.Print "你点击了窗体"End Sub实验三二、设计题1．《实践指导》P20，实验3。

vb实验编程答案

实验教程实验三顺序结构程序设计编程题参考答案（第47页）1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。

要求使用InputBox分别进行输入，使用Print 方法输出。

2. 输入圆的半径，输出其周长、面积。

要求使用TextBox控件进行输入，使用Label 控件输出。

3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。

要求使用TextBox 控件分别进行输入，使用Label控件输出。

实验四选择结构程序设计编程题参考答案（第58页）1. 输入一个，判断其是否能同时被3和7整除。

2. 输入三个数，输出其中的最大值。

6. 编程及输出分段函数的值。

由键盘输入t 的值，计算y 的值7. 输入年龄，输出所处人群：9岁以下为儿童，输出A ；10～19为少年，输出B ；20～29为青年，输出B ；30～49为中年，输出B ； 50以上为老年，输出E ；要求使用Select Case 语句实现。

8. 输入年份，输出对应的属相。

已知1984年为鼠年，要求使用Select Case 语句实现。

实验五循环结构程序设计编程题参考答案（第77页）1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输入。

2.有一个分数序列，求出这个序列前20项的和。

Y=t 2 t<1 t 2-1 1≤t<2 t 2-2t+1 2≤t<3 t 2+4t-17 t ≥3, (13)21,813,58,35,23,123. 求∑=101!nn（即1！+2！+3！+…+10！）4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。

5. 输出所有的“水仙花数”。

“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。

VB编程实验报告答案完整版

实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D 10. BC11. A 12.D 13. D 14. C 15. A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11.工程文件结构12. 工程13. 设计程序代码14. 双击窗体15. C:\Program Files\Microsoft Visual Studio\VB98 或者VB的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象实验二：一、选择1.B2.C3. B4.C5.C6.C7.B8.B9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click()2. Interval、50003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B 10. B11. B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3)实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A 10. C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select 三、1. X=4 y=132. 10实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 5实验六一、选择B C C C D D D D C A实验七一、选择1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空（1）n！（2）1+1+2+3+4+……+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数第八页编程2-1Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2-2Private Sub Command1_Click()Picture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Image1_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub第11页编程2-3Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End SubPrivate Sub Form_Load()End Sub2-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m + 1) + m)y = Int(Rnd * (n - m + 1) + m)z = Int(Rnd * (n - m + 1) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd SubPrivate Sub Form_Load()End Sub2-5Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)) End SubPrivate Sub Form_Load()End Sub第十五页2-1方法一Private Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub方法二Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2-2Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub2-3方法二Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数") z = InputBox("输入第三个数") If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, zEnd SubPrivate Sub Form_Load()End Sub方法一Private Sub Command1_Click() Dim x%, y%, z%x = Val(Text1)y = Val(Text2)z = Val(Text3)If x > y Then t = x: x = y: y = t If y > z Thent = y: y = z: z = tIf x > y Thent = x: x = y: y = tEnd IfLabel1 = x & Space(5) & y & Space(5) & z End Sub2-4方法一Private Sub Command1_Click()x = Val(InputBox("请输入上网时间:"))If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元"End IfPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End Sub方法二Private Sub Command1_Click()Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100fei = x * 1End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为" ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()End Sub2-5第18页2-3Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub]2-5Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1Print xLoopPrint x, nEnd Sub2-6Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0)) For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Form_Load()-8End Sub2-8Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub2-9Private Sub Command1_Click()For n = 100 To 999k = Trim(Str(n))If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print nNextEnd Sub2-11Private Sub Command1_Click()s = 0: Max = 0: Min = 1000For i = 1 To 20Randomizex = Int(Rnd * 50 + 51)Print x;If x > Max Then Max = xIf x < Min Then Min = xs = s + xNext iaver = s / 20PrintPrint "max="; Max, "min="; Min, "aver="; aver End SubPrivate Sub Form_Load()End Sub。

VB实验任务10答案

课程名称：程序设计基础VB，实验10 循环结构程序设计（2）实验1 阅读程序，人工列表写出下列循环的运行次数和执行结果(注意输出格式)，并上机验证结果，并充分使用单步实验3用For循环实现上次实验:随机产生20个两位正整数，分别统计其中偶数和奇数的个数，以及各类的数据之和。

Private Sub Form_Click()Dim JNum As Integer, ONum As Integer, JSum As Integer, OSum As IntegerDim n As Integer, i As IntegerFor i = 1 To 20 ‘通过For循环控制产生20个随机数据n = Int(Rnd * (99 - 10 + 1) + 10) ‘利用随机整数产生公式产生一个两位正整数nPrint n; ‘输出产生的两位正整数nIf n Mod 2 = 0 Then ’若为偶数ONum = ONum + 1 ‘偶数计数器ONum累加1OSum = OSum + n ‘偶数累加器OSum累加nElse ’若为奇数JNum = JNum + 1 ‘奇数计数器JNum累加1JSum = JSum + n ‘奇数累加器JSum累加nEnd IfNext iPrintPrint "奇数的个数有："; JNum; " 偶数的个数有："; ONumPrint "奇数之和为："; JSum; " 偶数之和为："; OSumEnd Sub实验4将10进制数转化成2进制数。

Private Sub CmdTrans_Click()Dim B As String, x As Double, r As Integerx = Val(TxtD)If Int(x) = x And x > 0 Then ‘对输入的一个10进制正整数x进行数据有效性的判断 Dor = x Mod 2 ‘将x除以2，记录余数rx = x \ 2 ‘x整除2的商作为下一次的被除数xB = CStr(r) & B‘逆序连接每一次的余数rLoop Until x = 0 ‘x整除2的商为0结束TxtB = B ‘通过文本框TxtB输出显示结果Else ‘若输入数据x不符合题目要求，则给出出错提示信息MsgBox "必须输入一个正整数！", vbExclamation, "输入错误"TxtD = ""TxtD.SetFocusEnd IfEnd Sub实验6使用下面的级数公式1π11111---1435721nn+=++++-（）求π的值，当计算到某一项式11121nn+-（-）的绝对值小于0.0001时，认为满足精度，停止计算。

VB实验及答案

对象名称
属性名称
Form1
Caption
Command1 Caption
Label1
Caption
Label2
Caption
Label3
Caption
Text1、Text2 Text
属性值象限判断判断 X= Y=
（3）编写事件代码： Private Sub Command1_Click() Dim x!, y!
Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1 = Str(f)
End Sub
（4）程序的运行及保存。 4 求圆的面积及圆柱体的体积，界面如图 2-3 所示。
【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮 Command1 和 Command2，四个标签 Label1、Label2、Label3 和 Label4，四个文本框 Text1、Text2、Text3 和 Text4。（2）设置对象的属性
【步骤】
（ 1 ）在窗体中创建一个标签 Label1 、一个命令按钮 Command1。
（2）在属性窗口中设置对象的属性：
对象名称
属性名称
属性值
Form1
Caption
设计界面
Label1
Caption
请留意此处
Command1
Caption
单击此处
（3）在 Command1 的 Click 事件中编写程序代码：
x = Val(Text1) y = Val(Text2) If x > 0 Then

VB实验参考答案

VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。

在学习VB的过程中，进行实验是非常重要的一部分。

本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。

实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。

参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。

参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。

VB实验教材的实验与习题答案

?
实验4-11
Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St
?
实验4-12
i\100 ; (i Mod 100)\10
?
习题
一、选择题
1．C 2. C 3.A 4. D 5.A 6. B 7. B 8. D 9. B
Const g = 9.8
Dim V0 As Single, t As Single
Dim S As SingFra biblioteke V0 = InputBox("请输入V0的值：")
t = InputBox("请输入时间t的值：")
S = (1 / 2) * g * t ^ 2 + V0 * t
Randomize
a = Int(Rnd * (999 - 100 + 1) + 100)
h = Mid(CStr(a), 1, 1)
t = Mid(CStr(a), 2, 1)
n = Right(CStr(a), 1)
Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")
List1.AddItem Log(a) / Log(b)
End Sub
‘关系运算
Private Sub Command2_Click()
List1.Clear
List1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12)

VB实验教材习题答案 (1)

第1章VB集成环境与VB概述一、选择题第2章常用控件与界面设计一、选择题第3章数据、表达式与简单程序设计一、选择题第4章选择分支与循环一、选择题二、填空题1．5 7 13 12 14 112. 3 1 5 3 4 13. right(a$,i)4. 45. 6-i6. 6 11 10 21 13 347. 5 14 138. Is else end select9. a*(2*i-1)*(-1)*x/(2*i+2) i+110. 0 n-111. 1 t*(-1)*x^2/((2*k-1)*(2*k)) Abs(t)>eps12. count1=count+1 count1>013. sum=0 sum+j st & k & “+”14. 9 x三、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim s As String, i As Integer, ch As String * 1Dim a As Integer, b As Integer, c As Integers = Text1.TextFor i = 1 To Len(s)ch = Mid(s, i, 1)If (ch >= "0" And ch <= "9") Thena = a + 1ElseIf (ch >= "A" And ch <= "Z") Or (ch >= "a" And ch <= "z") Thenb = b + 1Elsec = c + 1End IfNextPrint "数字个数"; aPrint "字符个数"; bPrint "其他字符"; cEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, n As IntegerDim a As Integer, b As Integer, c As IntegerFor i = 1 To 50n = Int(Rnd * 90 + 10)Print n;If i Mod 10 = 0 Then PrintIf n <= 40 Thena = a + 1ElseIf n <= 70 Thenb = b + 1Elsec = c + 1End IfNext iPrint "小于等于40的个数："; aPrint "大于40小于等于70的个数："; bPrint "大于70的个数："; cEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim x As SingleDim t As Long, n As Integerx = 1t = 1n = 1Do While 1 / t >= 0.0001x = x + 1 / tn = n + 1t = t * nLoopPrint xEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim k As Integer, sum As Integer, i As Integerk = InputBox("请输入一个正整数k", "输入框")For i = 1 To Len(CStr(k))sum = sum + Mid(k, i, 1)Next iMsgBox k & "的各位数字之和" & sumEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, iSum As LongFor i = 1 To 20iSum = iSum + i ^ 4NextPrint iSumEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As IntegerDim sum1 As Integer, sum2 As LongDim i As Integer, j As IntegerFor a = 2 To 3000sum1 = 0sum2 = 0For i = 1 To a \ 2If a Mod i = 0 Then sum1 = sum1 + i Next ib = sum1For j = 1 To b \ 2If b Mod j = 0 Then sum2 = sum2 + j Next jIf sum2 = a And a < b Then Print a, bNextEnd Sub7.Private Sub Command1_Click() '打印菱形Dim i As Integer, j As IntegerClsFor i = 1 To 6 '打印菱形上边6行Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iFor i = 5 To 1 Step -1 '打印下半部分Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Integer, iSum As IntegerPrint "连续和为1250的正整数是："For i = 1 To 500iSum = 0For j = i To 500iSum = iSum + jIf iSum >= 1250 Then Exit ForNextIf iSum = 1250 ThenPrint i; " ～"; jEnd IfNextEnd Sub9.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerFor a = 1 To 50For b = a To 50For c = b To 50If a ^ 2 + b ^ 2 = c ^ 2 ThenPrint a, b, cEnd IfNext cNext bNext aEnd Sub第5章数组一、选择题二、填空题1.Variant2.ReDim A(N)A(1)If M < A(I) Then M = A(I)3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5.T – 1I + 16.k = 6 - i – jmax = m7.j = 48j = j-38.i + 1i = i + 19. 23710. 3103511.numi + 1a(j)=temp三、编程题1.Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)Print "原数组:";For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("????m")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IPrint "平移后的数组:";For I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As IntegerA(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IIf S = "" ThenText3.Text = "没有重复"ElseText3.Text = SEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) ThenList1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub7．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsPicture3.ClsRandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, max As IntegerDim b(5) As Integer, c(5) As IntegerFor i = 1 To 5max = a(i, 1)For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)End Ifb(i) = maxIf max = a(i, j) Then c(i) = jNext jNext iFor i = 1 To 5Picture2.Print b(i)Picture3.Print c(i)NextEnd Sub8．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsLabel3.Caption = "最大值?"Label4.Caption = "最小值?"RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click() '交换并显示Dim i As Integer, j As Integer, t As IntegerDim maxi As Integer, mini As Integer, max As Integer, min As Integer max = 10: min = 99For i = 1 To 5For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)maxi = iEnd IfIf min > a(i, j) Thenmin = a(i, j)mini = iEnd IfNextNextIf maxi <> mini ThenFor j = 1 To 5t = a(maxi, j)a(maxi, j) = a(mini, j)a(mini, j) = tNext jFor i = 1 To 5For j = 1 To 5Picture2.Print a(i, j);NextPicture2.PrintNextLabel3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"ElsePicture2.Print "最小值和最大值在一行"Label3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"End IfEnd SubPrivate Sub Form_click()Picture1.ClsPicture2.ClsLabel3.Caption = ""Label4.Caption = ""End Sub9．Option Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, a() As Integern = InputBox("请输入一个奇数N：")If n Mod 2 = 0 ThenMsgBox ("请重新输入奇数！")End IfReDim a(n, n)For i = 1 To nFor j = 1 To nIf i = (n + 1) / 2 And j = (n + 1) / 2 Thena(i, j) = -1ElseIf i = j Or i + j = n + 1 Thena(i, j) = 1Elsea(i, j) = 0End IfNext jFor i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd Sub10．Option Base 1Dim a(10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerPrint "生成的数组："RandomizeFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);NextPrintEnd SubPrivate Sub Command2_Click()Dim i As Integerx = InputBox("请输入要删除的数组元素下标：") Print "删除第" & x & "个数组元素后："For i = x + 1 To 10a(i - 1) = a(i)NextFor i = 1 To 9Print a(i);NextEnd Sub11．Option ExplicitDim a(20) As Integer, i As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 20a(i) = Int(Rnd * 9) + 1Text1 = Text1 & a(i) & " "If i = 10 Then Text1 = Text1 & vbCrLf NextPrivate Sub Command2_Click()Dim j As Integer, k As Integer, b(20) As Boolean 'b(2)用来记录a(2)是否和前面的数相同，相同记为true，不再统计For i = 1 To 20k = 1If b(i) = False Then '如果b(i)=False，表示a(i)没有被统计过For j = i + 1 To 20If a(i) = a(j) Thenk = k + 1b(j) = TrueEnd IfNext jList1.AddItem a(i) & "出现次数:" & kEnd IfNextEnd SubPrivate Sub Command3_Click()Text1 = ""List1.ClearEnd Sub第6章过程一、选择题二、填空题1. 6 .2. 4 20 1013.第一行是 6 26 、第三行是-2 984.第一行10 6 、第二行 5 -55.第一行 6 5 、第三行8 76.第一行11 、第二行77.Fun(i)Fun=p8.第一行 4 、第二行2079.第一行29 、第二行28.710.J=kb( ) As Integerb( k-1) =b(k)i11.第一行gec 、第二行ge 、第四行 312.p1 = True And p2 = True 或p1 And p2= isp(i)Isp = Truem Mod i = 013.Convert(st)Len(s)"A" To "F"k = k + p * h14.isualVisualVisu15.s + an + 1x As Single, n As Integer 、p * (x + i) / ((2 * i - 1) * i * x)16.27617.Left(s, 1)Mid(s, i - 1, 1) = Mid(s, i, 1)n = 1c & CStr(n)18.chtempTrue19.val(mid(s,i,j))n as longprime=True20.A(2,2)的值是 6 ，A(3,1) 的值是8 ；A(4,2) 的值是 321.Option1(i)X22.1023.第一行7 6 ，第二行16 16 ，第三行，4524.第一行15 1 ，第二行35 3 ，第三行，50三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean Dim K As IntegerReDim A(1)A(1) = 50————————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean) Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As IntegerDim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByVal idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub4、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit Sub Next IF = False ' F = TrueEnd Sub四、编程题1.Private Function Prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iPrime = TrueEnd Function'方法一Private Sub Command1_Click()Dim m As Integer, i As Integerm = InputBox("请输入一个大于2 的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub If Prime(2) And Prime(m - 2) ThenPrint m & "=2 +" & m - 2ElseDoi = i + 1If Prime(2 * i + 1) And Prime(m - (2 * i + 1)) ThenPrint m & "=" & 2 * i + 1 & "+" & m - (2 * i + 1)Exit DoEnd IfLoop While 2 * i + 1 < m - (2 * i + 1)End If'方法二Private Sub Command2_Click()Dim m As Integer, i As Integer, p() As Integer, n As IntegerDim flg As Booleanm = InputBox("请输入大于2的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub ReDim p(1)p(1) = 2n = 1For i = 3 To m - 2 Step 2If Prime(i) Thenn = n + 1ReDim Preserve p(n)p(n) = iEnd IfNext iFor i = 1 To nFor j = 1 To nIf p(i) + p(j) = m ThenPrint m & "=" & p(i) & "+" & p(j)flg = TrueExit ForEnd IfNext jIf flg = True Then Exit ForNext iEnd Sub2．Private Function Fact(a As Integer) As LongIf a = 0 Or a = 1 ThenFact = 1ElseFact = a * Fact(a - 1)End IfEnd FunctionPrivate Sub Command1_Click()Dim n As Integer, m As Integer, result As Singlen = Val(Text1.Text)m = Val(Text2.Text)If n >= m Thenresult = Fact(n) / Fact(m) / Fact(n - m)Text3.Text = resultMsgBox "要求n>=m,请重新输入"Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub3．Private Function Istgs(n As Integer) As BooleanDim s As String, L As IntegerL = Len(CStr(n))s = CStr(n ^ 2)If Right(s, L) = n Then Istgs = TrueEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 10 To 300If Istgs(n) Then List1.AddItem n & "^2" & "=" & n ^ 2 Next nEnd SubPrivate Sub Command2_Click()EndEnd Sub4．Private Sub Command1_Click()Dim a(3, 4) As Integer, i As Integer, j As IntegerDim m As Integer, mj As IntegerRandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(900 * Rnd + 100)Print a(i, j);Next jPrintNext iFor i = 1 To 3m = 0Call max(a, i, m, mj)Print "第" & i & "行最大值为" & m & ",在第" & mj & "列"Next iEnd SubPrivate Sub max(a() As Integer, i As Integer, m As Integer, maxj As Integer) Dim j As Integerm = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > m Thenm = a(i, j)maxj = jEnd IfNext jEnd SubPrivate Sub Command2_Click()EndEnd Sub5．Private Function Judge(n As Integer) As BooleanDim sum As Integersum = yz(n)If yz(sum) = 2 * n Then Judge = TrueEnd FunctionPrivate Function yz(n As Integer) As IntegerDim i As IntegerFor i = 1 To nIf n Mod i = 0 Then yz = yz + iNext iEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 500If Judge(n) Then Print nNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub6．Private Sub Command1_Click()Dim n As Integer, j As Integer, flg As BooleanFor n = 2 To 30flg = FalseFor j = 2 To nIf pfs(j) And n Mod j = 0 Thenflg = TrueExit ForEnd IfNext jIf flg = False Then Print n;Next nEnd SubPrivate Function pfs(n As Integer) As BooleanIf Sqr(n) = Int(Sqr(n)) Then pfs = TrueEnd Function7．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd Function'判断某数是否为回文数Private Function Hws(n As Long) As BooleanDim i As Integer, s As String, L As Integers = CStr(n): L = Len(s)For i = 1 To Len(s) / 2If Mid(s, i, 1) <> Mid(s, L + 1 - i, 1) Then Exit Function Next iHws = TrueEnd FunctionPrivate Sub Command1_Click()Dim x As Long, t As Longx = InputBox("请输入一个正整数：")t = xDo While Hws(t) = FalsePrint t; "+"; fxs(t); "="; t + fxs(t)t = t + fxs(t)LoopEnd Sub8．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Sub Command1_Click()Dim n As Long, t As LongFor n = 1 To 999t = fxs(n)If t ^ 2 = fxs(n ^ 2) And n Mod 10 <> 0 And n < t ThenList1.AddItem n & " " & tList2.AddItem n & "^2" & "=" & n ^ 2 & " " & t & "^2" & "=" & t ^ 2 End IfNext nEnd Sub9．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Function Judge(n As Integer) As BooleanDim i As Integer, L As Integer, a(9) As Integer, t As IntegerIf Sqr(n) = Int(Sqr(n)) ThenL = Len(CStr(n))For i = 1 To Lt = Mid(CStr(n), i, 1)a(t) = 1Next iFor i = 0 To 9Sum = Sum + a(i)Next iIf Sum = L - 1 Then Judge = TrueEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerFor a = 300 To 2000If Judge(a) Then List1.AddItem aNext aEnd Sub10．Private Function F(n As Integer) As BooleanDim i As IntegerFor i = 1 To Len(CStr(n))If i Mod 2 = 1 And Mid(CStr(n), i, 1) Mod 2 <> 1 Then Exit FunctionIf i Mod 2 = 0 And Mid(CStr(n), i, 1) Mod 2 <> 0 Then Exit Function Next iF = TrueEnd FunctionPrivate Sub Command1_Click()Dim a(8) As Integer, i As Integer, j As IntegerRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tList1.AddItem a(i)If F(a(i)) Then List2.AddItem a(i)End IfLoop Until i = 8End SubPrivate Sub Command2_Click()List1.ClearList2.ClearEnd SubPrivate Sub CmdEnd_Click()EndEnd Sub11．Private Function prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iprime = TrueEnd FunctionPrivate Function nx(n As Integer) As IntegerDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext inx = Val(s)End FunctionPrivate Sub Command1_Click()Dim n As Integer, t As IntegerFor n = 100 To 900t = nx(n)If prime(n) And prime(t) And n < t ThenList1.AddItem "(" & n & "," & t & ")"End IfNext nEnd SubPrivate Sub Command2_Click()List1.ClearEnd Sub12．Option Base 1Dim a(4, 5) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerRandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 90 + 10)Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Sub Fp(a() As Integer, i As Integer, maxj As Integer, Flg As Boolean) Dim max As Integer, j As Integer, t As Integermax = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > max Thenmax = a(i, j)maxj = jEnd IfNext jFor t = 1 To UBound(a, 1)If a(t, maxj) > max ThenFlg = FalseExit SubEnd IfNextFlg = TrueEnd SubPrivate Sub Command2_Click()Dim i As Integer, m As Integer, mj As Integer, f As BooleanFor i = 1 To 4f = Falsem = 0: mj = 0Call Fp(a, i, mj, f)If f = True ThenText1.Text = Text1.Text & "(" & i & "," & mj & "):" & a(i, mj) & vbCrLf End IfNext iEnd SubPrivate Sub Command3_Click()Picture1.ClsText1 = ""End Sub13．Private Sub Command1_Click()Dim a(30) As Integer, i As Integer, j As IntegerDim Flag As BooleanRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tText1.Text = Text1.Text + Str(a(i))If i Mod 10 = 0 Then Text1.Text = Text1.Text + vbCrLfIf IsDown(a(i)) ThenList1.AddItem a(i)Flag = TrueEnd IfEnd IfLoop Until i = 30If Flag = False Then List1.AddItem "无降序数"End SubPrivate Function IsDown(n As Integer) As BooleanDim i As Integer, S As StringS = CStr(n)For i = 1 To Len(S) - 1If Mid(S, i, 1) < Mid(S, i + 1, 1) Then Exit FunctionNext iIsDown = TrueEnd FunctionPrivate Sub Command2_Click()List1.ClearText1 = ""End Sub14．Option ExplicitPrivate Sub CmdFind_Click()Dim i As Integer, p As String, st As String, st1 As StringFor i = 100 To 999st = ""If csum(i) = zyz(i, st) Thenp = CStr(i)st1 = Left(p, 1) & "+" & Mid(p, 2, 1) & "+" & Right(p, 1)List1.AddItem i & ": " & st1 & "=" & Left(st, Len(st) - 1)End IfNext iIf List1.ListCount = 0 ThenList1.AddItem "无满足要求的数!"End IfEnd SubPrivate Function csum(m As Integer) As Integer '求各位数字之和Dim i As Integer, p As Stringp = CStr(m)For i = 1 To Len(p)csum = csum + Val(Mid(p, i, 1))Next iEnd FunctionPrivate Function zyz(ByVal m As Integer, st As String) As Integer '求所有质因子之和Dim i As Integeri = 2DoIf m Mod i = 0 Thenzyz = zyz + ist = st & i & "+"m = m \ iElsei = i + 1End IfLoop Until m = 1End Function15．Private Sub Command1_Click()Dim k As Integer, i As Integerk = InputBox("请输入要求的数列项数：")List1.AddItem "共输出前" & k & "项数列"For i = 0 To kList1.AddItem p(i)NextEnd SubPrivate Function p(n As Integer) As IntegerIf n = 0 Or n = 1 Or n = 2 Thenp = 1Elsep = p(n - 2) + p(n - 3)End IfEnd Function第7章文件一、选择题二、填空题1．顺序文件和随机文件2． EOF3． Write和Print4．返回或设置当前的工作目录5．5116．文件的写语句7．Append8．LOF9．关闭10．Pattern11．【1】For Input 【2】#2 【3】Not EOF(2) 12．【1】”END”【2】Text1.Text 或者Text113．【1】Input 【2】ch 【3】Len(mystr) 14．【1】Number 【2】s15．【1】For Append As #1 【2】"end" 【3】ct,nt 16．【1】For Input 【2】For Output As #2 【3】Not EOF(1) 【4】Line Input #1,str1 【5】Close #1,#2 【6】Kill “C:\old.txt 17．【1】Open "C:StuData．txt" For OutPut As #1 【2】Write 18．【1】"C:\data.txt" 【2】#1, a(i) 【3】k>1 And a(k-1)>b 【4】k = k -1三、综合题1．Option Base 1Dim arr(100) As IntegerPrivate Sub Command1_Click()Dim i As IntegerOpen "c:\in18.txt" For Input As #6For i = 1 To 100Input #6, arr(i)Next iClose #6End SubPrivate Sub Command2_Click()Dim i As IntegerText1.Text = ""Open "c:\out18.txt" For Output As #8For i = 1 To 100If arr(i) Mod 2 <> 0 ThenText1.Text = Text1.Text & Str(arr(i))Write #8, arr(i)End IfNext iClose #8End Sub2．Dim str As StringDim n As LongPrivate Sub Command1_Click()CommonDialog1.Filter = "文本文件(*.txt)|*.txt|All Files(*.*)|*.*"CommonDialog1.FilterIndex = 1CommonDialog1.Action = 1Open CommonDialog1.FileName For Input As #2n = LOF(2)str = Input(n, #2)Text1.Text = strClose #2End SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To Len(str)If Asc(Mid(str, i, 1)) <= Asc("Z") And Asc(Mid(str, i, 1)) >= Asc("A") Then Mid(str, i, 1) = LCase(Mid(str, i, 1))ElseIf Asc(Mid(str, i, 1)) <= Asc("z") And Asc(Mid(str, i, 1)) >= Asc("a") Then Mid(str, i, 1) = UCase(Mid(str, i, 1))End IfNext iText1.Text = strEnd SubPrivate Sub Command3_Click()Open "D:\out.txt" For Output As #3Print #3, strClose #3End Sub第8章程序调试一．选择题二．改错题1.a(i)=int(Rnd*19)+1 →a(i)=int(rnd*20)+1For l=1 to a(i)+1 →for i=2 to a(i)+1If l=a(i) →if l <> a(i)K=k+1 →k=k-1。

VB程序设计学习与实验指导书答案(包含实验答案)

VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。

vb实验报告标准答案

竭诚为您提供优质文档/双击可除vb实验报告标准答案篇一：Vb郭贤海实验报告及答案实验1.1设计一个程序，程序运行的初始界面如图1-1所示。

当单击“显示”按钮时，在文本框中显示“欢迎使用Vb！”（图1-1）；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。

图1-1程序运行初始界面图1-2单击“显示”按钮后的程序界面实验1.2设计一个程序，程序运行的初始界面如图1-3所示，其中“显示”按钮为不可用。

同时要求：（1）当单击“改变文字”按钮时，在左边标签文字内容改为“你好，张三！”，同时“改变文字”按钮变为不可用（图1-4）；（2）当单击“隐藏”按钮时，将左边标签设为不可见，同时“隐藏”按钮变为不可用，“显示”按钮变为可用（图1-5）；（3）当单击“显示”按钮时，重新显示左边标签，同时“隐藏”按钮变为可用，“显示”按钮变为不可用（图1-4）。

图1-3第1题的程序运行初始界面图1-4单击“改变文字”按钮后的程序界面图1-5单击“隐藏”按钮后的程序界面四、实验原始记录实验1.1程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图。

如何取图？设计好界面，按“printscreensysRq”键，打开画图软件，单击“编辑|粘贴”命令，利用菜单栏下方的“选定”功能，选中窗体，按“ctrl+c”键，然后选中下面的实验样例图，按“ctrl+V”键，替换掉）程序代码。

privatesubcommand1_click()Text1.Text="欢迎使用Vb！"endsubprivatesubcommand2_click()Text1.Text=""endsubprivatesubcommand3_click()endendsub实验1.2程序的界面设计。

（可以是多张主要的图。

下面的图要替换成你们自己设计的图）程序代码。

privatesubcommand1_click()Label1.Visible=Truecommand2.enabled=Truecommand1.enabled=Falseendsubprivatesubcommand2_click()Label1.Visible=Falsecomma nd2.enabled=Falsecommand1.enabled=Trueendsub privatesubcommand3_click()Label1.caption="你好，张三！"command3.enabled=Falseendsub五、实验结果及分析实验1.1运行结果。

vb实验答案

kwsy1.2 属性设置二Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox1.Enabled = FalseEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.ClickTextBox1.Visible = FalseEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox1.Enabled = TrueTextBox1.Visible = TrueEnd SubEnd Classkwsy2.3 评选奖学金Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.ClickTextBox1.Text = ""TextBox2.Text = ""TextBox3.Text = ""TextBox4.Text = ""TextBox1.Focus()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a!, b!, c!, d!a = Val(TextBox1.Text)b = Val(TextBox2.Text)c = Val(TextBox3.Text)d = (a + b + c) / 3If (a = 100 And b = 100 And c >= 80) Or (a = 100 And c = 100 And b >= 80) Or (b = 100 And c = 100 And a >= 80) Or d >= 95 ThenTextBox4.Text = "获一等奖"ElseIf d >= 85 And a > 80 And b >= 80 And c >= 80 ThenTextBox4.Text = "获二等奖"ElseIf d >= 80 ThenTextBox4.Text = "获三等奖"ElseTextBox4.Text = "不获奖学金"End IfEnd SubEnd Classkwsy1.4 药物反应Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x!, y!x = Val(InputBox("请输入药物剂量", "输入框"))y = 1000 * x - x * xMsgBox("敏感度为" & y, , "输出框")End SubEnd Class求一元二次方程的根Imports System.MathPublic Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a#, b#, c#, d!, x$, y$a = Val(TextBox1.Text)b = Val(TextBox2.Text)c = Val(TextBox3.Text)d = b * b - 4 * a * cIf d > 0 Thend = Sqrt(d)x = (-b + d) / 2 / ay = (-b - d) / 2 / aTextBox4.Text = xTextBox5.Text = yElseIf d = 0 Thenx = -b / 2 / ay = -b / a / 2TextBox4.Text = xTextBox5.Text = yElsed = Math.Sqrt(-d)x = Format(-b / 2 / a, "0.0000")y = Format(d / 2 / a, "0.0000")TextBox4.Text = x & "+" & y & "i"TextBox5.Text = x & "-" & y & "i"End IfEnd SubEnd Class求最大公约数和最小公倍数Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickEndEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a, b, n, m, r As Longa = Val(TextBox1.Text)b = Val(TextBox2.Text)If a = 0 Or b = 0 ThenInputBox("请重新输入")End IfIf a > b Thenm = a : n = bElsen = a : m = bEnd IfDor = m Mod nm = nn = rLoop While (r <> 0)Label3.Text = "结果为：" & vbCrLfLabel3.Text &= a & "与" & b & "的最大公约数为" & m & vbCrLfLabel3.Text &= a & "与" & b & "的最小公倍数为" & a * b / m End SubEnd Class特殊图形显示（二） P24Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickEndEnd SubPrivate Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ClickDim i!, j%Label1.Text = ""For i = 1 To 5Label1.Text &= Space(3 * (i - 1)) & "★"For j = 1 To 17 - 3 * iLabel1.Text &= "☆"Next jLabel1.Text &= "★" & vbCrLfNext iLabel1.Text &= Space(3 * (i - 1)) & "☆" & vbCrLfFor i = 5 To 1 Step -1Label1.Text &= Space(3 * (i - 1)) & "☆"For j = 1 To 17 - 3 * iLabel1.Text &= "★"Next jLabel1.Text &= "☆" & vbCrLfNext iEnd SubEnd Classkysy3.1 产量问题Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n%, max!, s!s = 0max = 0For n = 20 To 50s = n * (300 - 10 * (n - 20))If s > max Thenmax = sEnd IfNextFor n = 20 To 50s = n * (300 - 10 * (n - 20))If s = max ThenLabel1.Text &= "当每亩地种植"& n & "棵梨树时达到最高产量为"& max & "kg" & vbCrLfEnd IfNextEnd SubEnd Classkysy3.2 猴子吃桃子Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim x!x = 1Label1.Text = "第7天的桃子数为：1个" & vbCrLfFor i = 6 To 1 Step -1x = 2 * (x + 1)Label1.Text &= "第" & i & "天的桃子数为：" & x & "个" & vbCrLf Next iEnd SubEnd Classkysy3.3 求自然对数ePublic Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i%, r#, s#s = 1r = 1i = 0Doi = i + 1r = r * is = s + 1 / iLoop While 1 / r >= 0.00001Label1.Text = "e的值为" & Format(s, "#.######")MsgBox("e的值为" & Format(s, "#.######"), , "求e的值") End SubEnd Classkysy3.4 求素数Public Class Form1Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickEndEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsDim m!, i!, n!n = 0For m = 1 To 100For i = 2 To m - 1If m Mod i = 0 Then Exit ForNext iIf i = m Thenn = n + 1If n = 7 Thenn = 0Label2.Text &= vbCrLfEnd IfLabel2.Text &= m & Space(1)End IfNext mEnd SubEnd Classkysy3.5 图形显示Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickEndEnd SubPrivate Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ClickDim i!, j%Label1.Text = ""For i = 1 To 6Label1.Text &= Space(6 - i)For j = 1 To 2 * i - 1Label1.Text &= Chr(64 + i)Next jLabel1.Text &= vbCrLfNext iEnd SubEnd Classsy4.1 运动成绩排序Public Class Form1Inherits System.Windows.Forms.FormDim i%, j%, m%, temp!, t$, n%Dim a$() = {207, 126, 453, "096", 339, "077", 231, 276, 122, 302}Dim b!() = {14.5, 14.2, 15.2, 15.7, 14.9, 15.1, 14.7, 13.9, 13.7, 14.5} Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsLabel1.Text = ""Label1.Text = "运动员编号" & Space(3) & "成绩（秒）" & vbCrLf Dim i%m = UBound(b)n = UBound(a)For i = 0 To nLabel1.Text &= a(i) & Space(7) & b(i) & vbCrLfNextEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickLabel2.Text = ""Label2.Text = "名次"& Space(3) & "编号"& Space(3) & "成绩（秒）"& vbCrLf Dim i%, j%For i = 0 To 8m = iFor j = i + 1 To 9If b(m) > b(j) Then m = jNext jtemp = b(m) : b(m) = b(i) : b(i) = tempt = a(m) : a(m) = a(i) : a(i) = tLabel2.Text &= i + 1 & Space(6) & a(i) & Space(6) & b(i) & vbCrLf Next iLabel2.Text &= i + 1 & Space(6) & a(i) & Space(6) & b(i) & vbCrLf End SubEnd Classsy4.2 矩阵求解Public Class Form1Inherits System.Windows.Forms.FormDim i%, j%, a%(5, 5), s%, m%, n%, k%Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickRandomize()Dim i%, j%Label1.Text = ""For i = 0 To 4For j = 0 To 4a(i, j) = Int(Rnd() * 99 + 1)Label1.Text &= a(i, j) & Space(8 - Len(a(i, j)))NextLabel1.Text &= vbCrLf & vbCrLfNextEnd SubPrivate Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.ClickDim i%, j%Label2.Text = ""a(i, j) = Len(Label1.Text)For i = 0 To 4s += a(i, i)NextLabel2.Text = "主对角线元素之和是："Label2.Text &= sEnd SubPrivate Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.ClickDim i%, j%Label3.Text = ""a(i, j) = Len(Label1.Text)a(m, n) = 0For i = 0 To 4For j = 0 To 4If a(m, n) < a(i, j) Then m = i : n = jNextNextLabel3.Text = "最大元素是："Label3.Text &= "第" & m + 1 & "行,第" & n + 1 & "列的" & a(m, n) End SubPrivate Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.ClickDim i%, j%a(i, j) = Len(Label1.Text)k = InputBox("请输入您要查找的元素：")m = 5 : n = 5For i = 0 To 4For j = 0 To 4If k = a(i, j) Then m = i : n = j : Exit ForNextNextIf m = 5 And n = 5 ThenMsgBox("您要查找的元素不存在")ElseMsgBox("您要查找的元素在第" & m + 1 & "行,第" & n + 1 & "列") End IfEnd SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickEndEnd SubEnd Classsy4.3 杨辉三角形Public Class Form1Dim a%(1, 1), i%, j%, n%Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a%(1, 1), i%, j%, n%n = Val(TextBox1.Text)ReDim a%(n, n)For i = 1 To na(i, 1) = 1a(i, i) = 1Next iFor i = 3 To nFor j = 1 To ia(i, j) = a(i - 1, j - 1) + a(i - 1, j)NextNextLabel1.Text = ""For i = 1 To nFor j = 1 To iLabel1.Text &= Space(6 - Len(Str(a(i, j)))) & a(i, j) NextLabel1.Text &= vbCrLfNextEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim a%(1, 1), i%, j%, n%n = Val(TextBox1.Text)ReDim a%(n, n)For i = 1 To na(i, 1) = 1a(i, i) = 1Next iFor i = 3 To nFor j = 1 To ia(i, j) = a(i - 1, j - 1) + a(i - 1, j)NextNextFor i = 1 To nFor j = 1 To iLabel2.Text &= Space(6 - Len(a(i, j))) & a(i, j) NextLabel2.Text &= vbCrLfNextLabel2.Text = ""For i = 1 To nLabel2.Text &= Space(2 * n - 2 * i)For j = 1 To iLabel2.Text &= Space(6 - Len(Str(a(i, j)))) & a(i, j) NextLabel2.Text &= vbCrLfNextEnd SubEnd Classsy4.4 猴子选大王Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a() As Int16Dim m%, n%, i%, j%, t%m = Int(TextBox1.Text)n = Int(TextBox2.Text)ReDim a(m)t = mi = 1Do While t <> 1If a(i) <> -1 Thenj = j + 1If j = n Thena(i) = -1 : t = t - 1 : j = 0Elsea(i) = jEnd IfEnd Ifi = i + 1If i = m + 1 Then i = 1LoopFor i = 1 To mIf a(i) <> -1 Then MsgBox("猴王是第" & i & "只猴子！") NextEnd SubEnd Class心形图的显示Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickEndEnd SubPrivate Sub Label1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Label1.ClickDim i%Dim s As String = "☆"Label1.Text = ""For i = 1 To 4Label1.Text &= Space(4 - i) & s & Space(2 * (i - 1)) & s & Space(4 - i) & Space(4 - i) & s & Space(2 * (i - 1)) & s & Space(4 - i) & vbCrLfNextFor i = 1 To 9Label1.Text &= Space(i - 1) & s & Space(9 - i) & Space(9 - i) & s & vbCrLf NextLabel1.Text &= Space(9) & sEnd SubEnd Classkysy4.3 N人开关灯问题Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ClickLabel1.Text = ""Label1.Text = "N盏灯排成一排，从1到N依次编号。

大学vb教材参考答案

⼤学vb教材参考答案第1章⼀.单项选择题1-5:DBCAC 6-10:ABCDC 11-15:BCCAB ⼆. 多项选择题1、ACDE2、BCE3、CD4、CE5、AE6、ACE7、ABCD三. 填空题1．事件驱动2．解释编译3．设计、运⾏和中断。

4．属性、事件和⽅法。

5．窗体单击（Form_Click）。

6．（第1个空取消），代码7． MyForm 。

要求复习：教材的例题：P7 例1-1实验教程的练习：P5 第1、2 题习题2参考答案（本章答案请同学们⾃⼰到机器上去验证）⼀．单选题1.①D，②D2.①A，②C3.A4.B5.B8.D9.B 10.B 11.A 12.A 13.B 14.A 15.B 16.B 17.B 18.A 19.B 20.A 21.B 22.B 23.D 24.A 25.B 26.B 27.A 28.B 29.C 30.A ⼆. 多项选择题1.A，B2.A，D3.4.C，D，E5.A，B，D，E6.A，B，C7.A,D,E8.B,C9.A，D，E 10. 11.A，D，E 12.A，B 13.A，B，D，E 14.B，D 15.C，D 16.A，C 17.A，D三. 填空题1、⑴sin(50*3.14/180)⑵(2+x*y)/(2-y^2)⑶a^2-(3*a*b/(3+a))⑷(x^3)^(1/8)+sqr(y^2+4*a^2/(x+y^3))2、int(rnd*(51)+50)3、⑴138 ⑵3 ⑶214 ⑷inchina ⑸70 (6)45 ⑺0第3章⼀．单项选择题1-5: C B D D B 6-10：C B D D A 11-15：A C C B C16-20：A B A A C 21-25：D B B C A 26：B 27：B 28：取消29：A 30：A 31：C⼆．多项选择题1． AC 2． ACE 3． ABCF 4． ABCDE 5. BD三．填空题1． $000, 124 。

VB实验书答案

第1章一、选择题1．D 2．C 3．C 4．C 5．B 6．B7．C 8．A 9．D 10．D 11．B 12．A13．D 14．C 15．B 16．D 17．D 18．D19．C 20．A 21．C 22．B 23．B 24．C 25．C 26．C 27．C 28．B 29．B 30．B 二、填空题1．工程2．（1）程序和数据（2）属性3．（1）对象（2）事件4．“按字母顺序”5．（1）窗体（2）控件（3）菜单6．（1）对象属性（2）事件过程7．多8．标准模块9．视图10．对象查看按钮11．窗体布局12．Alt+Q第2章一、选择题1．D 2．B 3．A 4．A 5．D 6．A 7．B 8．C 9．C 10．A 11．B 12．B 13．B 14．B 15．B 16．C 17．A 18．A 19．A 20．B 21．C 22．C 23．A 24．C 25．A 26．C 27．B 28．C 29．D 30．D二、填空题1．（1）Print （2）0，02．（1）左键（2）右键3．（1）窗体（2）Font4．（1）1 （2）MDI父窗体5．Moveable6．（1）在属性窗口中设置（2）在程序代码中设置7．BackColor8．（1）Name （2）Caption9．（1）Print （2）Cls10．工程11．Hide12．Unload13．.frm14．工程15．MaxButton第3章一、选择题1．D 2．D 3．A 4．D 5．B 6．B 7．C 8．B9．B 10．C 11．C 12．A 13．D 14．D 15．D 16．A17．B 18．D 19．B 20．C 21．C 22．B 23．D 24．A25．B 26．D 27．D 28．C 29．B 30．C 31．B 32．D33．A 34．B 35．B 36．C 37．D 38．C 39．A 40．C41．A 42．D 43．C 44．B 45．B 46．A47．B 48．D49．B 50．C 51．C 52．B 53．C 54．A 55．A 56．B二、填空题1．（1）窗体（2）图片框（3）Clear2．周期性地自动引发事件3．（1）Enabled （2）Locked4．TabStop5．Name和Caption（或者Name和Text）6．Timer7．Scroll和Change8．（1）0（2）−19．（1）Hide（2）Show10．（1）List（2）Selected11．ASCII码12．（1）Shift （2）Ctrl （3）Alt13．（1）DragMode （2）1 （3）DragMode （4）014．（1）MousePointer （2）99 （3）MouseIcon15．Combo1.List（Combo1.ListIndex）16．Change17．（1）密码验证（2）请输入密码：（3）* （4）验证18．（1）Unload （2）Show19．（1）BorderStyle （2）Shape20．（1）Chk1.Value（2）Text3.Passwordchar = "" （3）Text2.Text 21．（1）选择（2）性别（3）False （4）True22．Pic1.Picture=loadpicture（"D：\Pic\Fishing.bmp"）23．（1）KeyAscii=13 （2）a<=100（3）Text2.SetFocus （4）Len（Trim（Text1.Text））第4章一、选择题1．B 2．A 3．C 4．C 5．A 6．C 7．A 8．B 9．D 10．B 11．D 12．B 13．A 14．A 15．A 16．A 17．B 18．D 19．B 20．B21．C 22．A 23．C 24．B 25．D 26．C 27．C 28．B 29．A 30．D31．D 32．B 33．A 34．A 35．A 36．D 37．B 38．D 39．A 40．D41．B 42．B 43．D 44．C 45．A 46．D 47．D 48．D 49．A二、填空题1．（1）123 （2）567（3）889 （4）12300（5）02．（1）255 （2）冒号“：”（3）续行符“_”（空格和下划线）3．x>=-5 And x <=54．（1）（X+Y）<10 And （X−Y）>0（2）X*Y>0 And X=Int（X）And Int（Y）=Y（3）X*Y=0 And X+Y<>05．A<>0 And B*B –4*A*C>=06．（1）8888.30（2）628（3）0.67（4）0.57（5）hello（6）THIS IS A GOOD IDEA7．x+y<=8And x−y>88．x <100 And x >=09．x<=−5 or x >=510．6～1011．（1）（x^3-y^3）/（y*（sin（x））^3+7*log（y））（2）Log（y+cos（x）^2）（3）（a^（b*c）+c^（a*b））^（1/3）（4）abs（（exp（x）+sin（x）^3）/（x*（x−y）））（5）log（（exp（x*y）+abs（tan（z）^（−1）+cos（x）^3））/（x+y+z））12．（1）False（2）False（3）False13．（1）"10"（2）"输入整数"（3）"输入数据：10" （4）"输入的数据是："第5章一、选择题1．A 2．B 3．D 4．C 5．C 6．C/D 7．C 8．D9．D 10．C 11．B 12．B 13．C 14．C 15．C 16．B 17．B 18．D 19．B 20．D 21．B 22．B 23．D 24．C 25．D 26．B 27．B 28．C 29．C 30．B 31．C 32．D 33．A 34．D 35．D 36．B 37．D 38．D 39．A 40．B 41．C 42．B 43．A 44．A 45．B 46．D 47．B 48．A 49．B 50．C 51．B 52．C 53．C 54．A 55．B 56．C 57．C 58．D 59．C 60．C 61．C 62．B 63．C 64．C 65．D 66．D 67．A 68．B 69．B二、填空题1. −12. −10Trur−613. 6 12312804. BASIC5. （1）6 （2）14 （3）7 （4）13（5）8 （6）3 （7）9 （8）16. （1）Spc（4）（2）Format（Sqr（a），"0.000"）7. 3 −38. false9. * *0* *10. （1）a>0 And b>0 And c >0 （2）a<0 And b <0 And c<011. （1）c = Val（InputBox（"请输入第三个数"））（2）b > a （3）b < a12. （1）Select Case x （2）Case Else13. （1）Text1 （2）Text1 （3）Form214. （1）Is （2）Else （3）End Select15. （1）Timer1.Enabled （2）Shape2.Top （3）Top （4）Shape2.Left16. 2117. （1）3 （2）−1818. （1）5.6 （2）519. （1）Aa （2）AaBbCc20. 2821.（1）Happy new year! （2）222.（1）For i = 1 To 5000 （2）i Mod 10 = 023.（1）d = d1 * 1000 + d2 * 100 + d3*10 + d4 （2）d = i * 924.（1）s = s + fz / fm （2）fm = fm + t25.（1）Exit Do （2）Right（Str（i），1）26.（1）Int（Rnd * 9 + 1）（2）Int（Rnd * 6 + 5）（3）j = j * 10 + a （4）If i < n Then Print j；"+"；Else Print j；27.（1）n = n \ m （2）m = m + 128. If s > Max Then Max = s29.（1）c To 50 （2）b To 100 （3）1 /（a ^ 2）+ 1 /（b ^ 2）= 1 /（c ^ 2）第6章一、选择题1．A 2．C 3．D 4．C 5．A 6．B 7．C 8．C 9．B 10．C二、填空题1．（1）顺序结构（2）选择结构（3）循环结构2．（1）有穷性（2）确定性（3）有零个或多个输入（4）有一个或多个输出（5）有效性3．（1）自顶向下（2）逐步细化（3）模块化设计（4）结构化编码4．（1）伪代码（2）流程图5．模块化第7章一、选择题1．D 2．C 3．D 4．C 5．D 6．C 7．C 8．A9．D 10．C 11．B 12．D 13．B 14．B 15．B 16．B17．C 18．C 19．C 20．D 21．D 22．A 23．A 24．C25．C 26．D 27．D 28．A 29．C 30．A 31．D 32．D二、填空题1．（1）2 （2）6 （3）1 （4）2 （5）−1 （6）1 2．Variant（或变体型）3．454．（1）2 5 （2）3 65．1 2 1 4 46．0 20 25 30 35 407．−1 –2 –3 –4 –50 –1 –2 –3 –41 0 –1 –2 –32 1 0 –1 –23 2 1 0 –14 3 2 1 0s=−158．0 0 0 0 0 12 14 16 18 209．1 2 3 4 5 12 14 16 18 2010．（1）100 （2）10 （3）10 （4）a（（I−1）*10+j）11．（1）Int（Rnd * 1000）（2）arr（i）> Max （3）arr（i）< Min 12．（1）preserve a（n）（2）a（I+1）=a（I）（3）a（I）=m （4）a（I+1）=m13．（1）I，J （2）I，I （3）I，5−I14．（1）a（i）= a（i − 1）（2）a（LBound（a））= j1 （3）k = j15．（1）c（2）<"A" or c（2）> "Z" （2）"Z" （3）"A"（4）keyAscii−1（5）keyAscii+116．（1）t = n （2）i To t – 1 （3）i = i + 1（4）b（i）（5）t = t − 117．（1）Redim A（n）（2）P>n or P <1 （3）P+1 （4）D 18．（1）int（Rnd*99+1）（2）In arr （3）x>50 and x <90（4）sum+x （5）x19．（1）Redim a（n，n）（2）1 to n （3）a（j，k）=i （4）Print 20．（1）7 （2）1 （3）16 （4）10 （5）5第8章一、选择题1．D 2．A 3．A 4．B 5．B 6．D 7．D 8．C 9．D 10．A11．A 12．A 13．C 14．D 15．D 16．C 17．D 18．D 19．C 20．A21．A 22．B 23．B 24．A 25．B 26．C 27．D 28．B 29．D 30．C二、填空题1．（1）4 （2）8 （3）162．1 3 14 3 109 27 93．（1）12 （2）18 （3）36 12 18 （4）36 36 124．（1）8 −2 （2）6 −25．（1）15 （2）36 （3）266．（1）34 （2）26 （3）87．3 5 7 9 58．（1）01 05 02 （2）08 （3）039．（1）10 6 （2）5 4 （3）10 −6 10．（1）17 （2）178 （3）17811．3 3 41 3 10 0 11 0 012．1 62 113 1613．（1）11 （2）61 （3）13614．（1）asicB （2）icBas15．（1）1 1 2 （2）1 3 2 （3）1 2 216．（1）Flag或Flag=True （2）Cstr（n）或Trim（Str（n））（3）Mid（x，i，1）< Mid（x，i + 1，1）17．（1）n = i * i（2）List1.AddItem（CStr（n）+ "=" + CStr（i）+ "*" + CStr（i））（3）ByVal n As Long（4）a（n Mod 10）= 1（5）If js = 2 Then Verify = True18．（1）L = 3 − Len（a）Mod 3 （2）n = Len（a）（3）c = c & Zh（b）（4）n = n + Val（Mid（s，p，1））* 2 ^ i 19．（1）Str（n）& "=" （2）P（i）+ P（j）+ P（k）= n （3）Exit Sub （4）idx = idx + 120．（1）n Mod 2 = 1 And n > 1 （2）s = n & "*3+1"（3）Exit Sub （4）Call Yz（n）第9章一、选择题1．D 2．B 3．B 4．C 5．D 6．C 7．C 8．C 9．C 10．B 11．D 12．B 13．D 14．B 15．B 16．B 17．A 18．B 19．C 20．A 21．A 22．A 23．C 24．B 25．B 26．B 27．C 28．C 29．C 30．B 31．C 32．A 33．A 34．D 35．B 36．C 37．A二、填空题1．Put2．Len3．Append4．Lof5．返回一个可供Open语句使用的文件号6．（1）Open "d:\data1.txt" For Random As #1 Len = Len（s）（2）Put #1，，s7．（1）Input （2）Output（3）0 （4）Close #1，#28．（1）For Append As #1 （2）For Input As #2（3）#1，s第10章一、选择题1．A 2．A 3．C 4．A 5．B 6．B 7．D 8．C9．C 10．C 11．A 12．C 13．D 14．D 15．B 16．A17．D 18．B 19．B 20．D 21．A 22．B 23．B 24．B25．D 26．B 27．C 28．C 29．B 30．C二、填空题1．（1）&（2）Alt （3）−2．菜单项显示区3．“→”按钮4．弹出式菜单5．调整菜单项顺序6．（1）Caption （2）Name （3）Index （4）Checked（5）Enabled （6）Visible7．（1）PopupMenu （2）MouseDown8．Ctrl+E9．（1）Height（2）Width10．（1）Microsoft Rich TextBox Control 6.0 （2）64K11．不可见的12．“部件”13．（1）DialogTitle （2）Filter （3）InitDir（4）ShowOpen或Action=1 14．StatusBar15．（1）不能（2）ToolBar。

VB语言程序设计实验教程吴昊答案

VB语言程序设计实验教程吴昊答案1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上图画一个名称为Command1的命令按钮，然后撰写如下事件过程：Private Sub Command1_Click( )c = ""For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后，单击命令按钮，建议在窗体上表明如下内容112123则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上图画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后撰写如下事件过程：Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能就是(C)(单)A.输出n以内的.奇数B.输入n以内的偶数C.输出n以内的素数D.输入n以内能够被j相乘的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上图画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后撰写如下事件过程：Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名就是【BAS或.BAS】(特别注意不要写下点)。

VB程序设计教程实验1答案

41011066付乾峰资源1103 实验1 自测习题1程序.Private Sub Form_Load()Label1.FontBold = FalseLabel1.FontUnderline = FalseLabel1.AutoSize = TrueLabel1.FontSize =15End SubPrivate Sub Command1_Click()Label1.AutoSize = TrueLabel1.FontSize = Label1.FontSize + 15End SubPrivate Sub Command2_Click()Label1.AutoSize = TrueLabel1.FontBold = TrueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click()Label1.FontBold = FalseLabel1.FontUnderline = FalseLabel1.AutoSize = TrueLabel1.FontSize = 15End Sub截图：自测习题2程序.Private Sub Command1_Click() Label1.Caption = "Visual Basic" Text1.Text = "程序设计题" End SubPrivate Sub Command2_Click() Label1.Caption = "程序设计题" Text1.Text = "Visual Basic" End Sub截图：自测习题3程序.Private Sub Command1_Click() Label1.FontSize = Label1.FontSize / 2 End SubPrivate Sub Command2_Click() Label1.Top = Label1.Top + 300 Label1.Left = Label1.Left + 300End SubPrivate Sub Form_Load()Label1.AutoSize = TrueLabel1.FontSize = 30Label1.Top = 300Label1.Left = 300End Sub截图：自测习题4程序.Private Sub Command1_Click()Label1.Caption = "简单的VB程序设计" Form1.Caption = "VB学习"End SubPrivate Sub Command2_Click()Label1.Caption = ""Form1.Caption = ""End SubPrivate Sub Command3_Click()EndEnd Sub截图：自测习题5程序.Private Sub Command1_Click()T ext1.T ext = ""T ext2.T ext = ""Label4.Caption = ""T ext1.SetFocusEnd SubPrivate Sub Command2_Click()Label4.Caption = Val(T ext1.T ext) + Val(T ext2.T ext) End SubPrivate Sub Command3_Click()EndEnd Sub截图：开始界面：运算界面：清除界面：。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

11.(F) 12.(F) 13.(T) 14.(F) 15.(F)
四、填空题
1.数学日期时间字符串
2.Str(x)Val(x)Asc(x)
3.Sin(30*3.14/180)
4.0
5.2
6.16
7.Right(x,5)
8.123 123 12 0
9.Mid(S, 6, 4)
10.Int(RndText1.Text* 900) + 100
a(x, y) = 1
End If
Print a(x, y); Spc(2);
Next y
Print
Next x
End Sub
2．产生随机函数二维数组a(1 to 10,1 to 10)赋予0到99之间的整数，求出每行a的最大值并把这些最大数放到一维数组b中并用比较交换法降序排列输出各值。
Option Explicit
11.B 12.B 13.B 14.A 15.C 16.A 17.C 18.A 19.C 20.D
二、多选题
1．ABC2. BCD 3. ACD 4.ABD 5. BCD
三、判断题
1. （F） 2. （F） 3. （T） 4. （F） 5. （F）
6. （T） 7. （T） 8. （F） 9. （T） 10. （T）
二、判断题
1.T 2.F 3.F 4.T 5.T 6.F 7.T 8.T
三、填空题
1．Caption,Name,Index,Checked,Enabled,Visible
2．标题－
3．&
4．向下移一个等级
5．PopupMenu
6．MicrosoftWindowsCommonControls6.0ToolBar
21.T 22.F 23.F 24.F 25.T 26.T 27.F 28.F
第八章
一、单项选择题
1. C 2.B 3.C 4.B 5.B 6.D 7.B 8.C 9.B 10.B 11.D 12.C 13. A 14. B 15.D 16.D 17.D 18.C
二、判断题
1.T 2.F 3.F 4.T 5.F 6.T 7.T8F.9.T 10.F
二、判断题
1.F 2.T 3.F 4.F 5.T 6.F 7.T
三、操作题
1.参考代码：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim sum As Integer
For i = 2 To 10000
sum = 0
For j = 1 To i / 2
k = i Mod j
If 0 = k Then
sum = sum + j
End If
Next j
If i = sum Then
Print i
End If
Next i
End Sub
2.参考代码：
Private Sub Command1_Click()
11.T 12.F 13.T 14.T15.T 16.T 17.T 18.F 19.T 20.T
21.F 22. T
第九章
一、单项选择题
1.D 2.C 3.B 4.A 5.D 6.B 7.A 8.B 9.B 10.C 11.A 12.D
二、1.T 2.T 3.F 4.T 5.F
第十章
一、单项选择题
1.A 2.A 3.C 4.B 5.B 6.D 7.A 8.D 9.C 10.C 11.A 12.B 13.B 14.C 15.A 16.D
Mid(Text1.Text, 3, 1) & Mid(Text1.Text, 2, 1) & Mid(Text1.Text, 1, 1)或 Reverse(Text1.Text)
五、操作题
1、求Sn=n+nn+nnn+nnnn+……nnnnnn…n(a个n)的和，其中a和n分别由随机函数产生的1～9之间的正整数，现假设n=5，a=3，则Sn=5+55+555，求Sn。
Next j
Print
Next i
Print "各行最大值为："
For i = 1 To 10
max = a(i, 1)
For j = 1 To 10
If a(i, j) > max Then max = a(i, j)
Next j
b(i) = max
Print b(i)
Next i
Print
Print "对各行最大值降序排列后";
For i = 1 To n
List2.AddItem a(i)
Next i
End Sub
-----------------------------------------------------------
Private Sub Command3_Click()
List1.Clear
List2.Clear
11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F .
第四章
一、单项选择题
1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A
21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D
Option Explicit
Private Sub Form_Load()
Show
Dim a(10, 10) As Integer
Dim x As Integer, y As Integer
For x = 1 To 10
For y = 1 To 10
a(x, y) = 0
If x = y Or x + y = 11 Then
四、填空题
1.字符型2.ReDim3.24.45.二公司6.1234
7.第一次第二次第三次
1 1 1 2 1 3
1 1 1 2 1 3
1 1 1 2 1 3
8.169.310.33
五、操作题：
1．编写程序，建立并输出一个10*10矩阵，该矩阵两条对角线元素为1，其它元素均为0。
Option Base 1
41. D
二、判断题
1.True2.True3.False4.False5.False6.False7.False
第三章
一、单项选择题
1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A
16.C 17.B
二、判断题
1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F
Dim n%, i%, j%, p As Integer
Dim a() As String
---------------------------------------------------------
Private Sub Command1_Click()
ReDim a(n)
For i = 1 To n
End Sub
------------------------------------------------------------
Private Sub Form_Load()
n = Val(InputBox("请输入要排序的字符串的个数", , 0))
End Sub
第七章
一、单项选择题
1.B 2.A 3.D 4.A 5.B 6.B 7.C 8.D 9.B 10.B
Private Sub Form_Click()
Dim a%(1 To 10, 1 To 10), b%(1 To 10), i%, j%, max%, t%
For i = 1 To 10
For j = 1 To 10
a(i, j) = Int(Rnd * 99 + 1)
int Tab(5 * j); a(i, j);
11. A12. A13. C14. C15. A16. C17. A 18.D 19. A 20. D
21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B
31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A
Dim n%, i%
n = InputBox("请输入天数：")
x = 1
For i = n - 1 To 1 Step -1
x = (x + 1) * 2
Next
Print x
End Sub
第五章
一、单项选择题：
1.B2.C 3.C4.C5.D
6.B7.A8.D9.D10.D
11. D 12.A 13.D 14.A 15.A
第一章
答案：
一、单项选择题
1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C
二、判断题
1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T
第二章
一、单项选择题
1. B2. D3. A4. D5. B6.A7. D8. D9. D10. A
a(i) = InputBox("输入原字符串给数组元素" & "a(" & i & ")")