vb实验指导答案
【参考文档】vb实验指导书答案-范文word版 (10页)
第6章 过程
一、单选题
二、填空题 2.5 5. 工具 7. &，Click 8. Enabled 9. 窗体
10. 模式，无模式
11. Action
12. CommonDialog1.FileName 13. cdlCCRGBInit 14. Unload，Show 15. 所在窗体的名称 16. 打开 17. Visible 18. 当前 19. 255 20. Show
（6）强制显式声明变量 （7）类 P35 第三章
1. CBAAABCDAD ABBBC ADDBD 2.（1）integer （2）???? （3）text （4）a=0 or b=0 （5）(x+y)*sin(30*3.14/180) （6）int(rnd*100+1)（7）# （8）0
1
C
（9）int(rnd*30+70)(10) CDEF P53 第四章
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！
== 本文为word格式，下载后可方便编辑和修改！ ==
vb实验指导书答案
篇一：VB程序设计学习与实验指导书答案(包含实验答案)
VB学习与实验指导测试题
参考答案
第一章
第二章
第三章
第四章
第五章
第六章
第七章
第八章
篇二：VB实验指导书答案
VB实验指导书_理论综合练习题_答案(完结版).doc
第二部分综合练习理论练习一一单选1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA二多选1 ABCE 2CE 3 BCE 4 ADE 5 ABCD6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE三判断1-5 X V X V V6-10 V X V V V四填空1 x=int(Rnd*101)End If avg=s/82 i=l to 10Right(str(i),l)或Right(str(i mod 10))3 m*n/GCD(m,n)GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a( 10)Ciscreatedata a()sort a()Fori= ITo 10Print a(i);Next iEnd SubSub createdata(a())Fori = ITo 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9Forj = 1 To 10-iIf a(j) > a(j + l)Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As#l Len = Len(student)End SubPrivate Sub cmdadd_Click()student.no = Text 1.Textstudent.Bscj = Val(Text2.Text)student.Sjcj = Vai (Tex t3.Text)lastrecord = LOF( 1) / Len(student) + 1Put # 1, lastrecord, studentTextl.Text =Text2.Text = ””Text3.Text ="End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub1-5 CABCD理论练习二6-10 ABCCD 11-15 BBBAB1 CD2 AD3CE4BC6BCDE7CDE8ABCDE9 ABD三判断二多选1-5 X X X X V 6-10 V V V X X 16-20 DBAAC5 AD10ACDE1n-l 或者Sqr (n)02X y3 1 to 102*i-14Button=2start=True 五阅读程序1-5DBDAB六程序设计1Private Sub Form_click()四填空japan = 47528china = 22257n = 0 True — (x, y)Do While china <= japanchina = china * 1.098japan = japan * 1.028 n= n + 1LoopPrint n & ”年之后，中国GDP将超过日本”End Sub•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。
VB程序设计教程实验指导与习题解答上机答案
程序代码Private Sub Command1_Click()End SubPrivate Sub Command2_Click() = TrueEnd SubPrivate Sub Command3_Click() = TrueEnd SubPrivate Sub Command4_Click() = 10 = False = FalseEnd Sub初始窗口：单机放大之后窗口：单机下划线之后窗口：单击加粗之后窗口：自测2单击还原之后窗口：Private Sub Command1_Click()Label1 = "visual basic"Text1 = " 程序设计题"End SubPrivate Sub Command2_Click()Text1 = "visual basic"Label1 = " 程序设计题"End Sub初始窗口：单击显示之后窗口：单击交换之后的窗口：自测题3Private Sub Command1_Click()End SubPrivate Sub Command2_Click() = + 30End Sub= + 20= 1初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：自测题4程序代码Private Sub Command1_Click() = "VB 学习"Print"简单的VB程序设计"End SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击显示之后的窗口：单击清除之后的窗口：自测题5单击退出之后的窗口：Private Sub Comma nd1_Click()HHEnd SubPrivate Sub Comma nd2_Click() =Val + Val End SubPrivate Sub Comma nd3_Click() End End Sub初始化窗口: 单击运算之后窗口: 单击清除之后的窗口:也 I 绘I lirr-：輕 g砖屮 ZBPL H J ^E 霸赴 BAy 噹晔了 ZILT. 相0 ■tap乜=1 业 '-JS-J Q -•ST F■ I” _l ■■ B 事电r 兴/涉审叭暂背巧応科1I gMd I T B ' A bJ El -； F 」 )-1 a □瓷 a QB aitr 硕八— y -I Su日 r>M| PLi.l CnhwJ x> 蚀-7 -■nJ肝 k4・Jii.— Tr«：h^.L 33 -:呻p Ju IpL*口- i-JN h —vid.]F TM IHFLlMv ■ -UKncnm-'|LUIPI> r■41•成 &.■ B WOQULL,:■—PMd P GPrivate Sub Command1_Click()Dim a$= Left(a, 2)End SubPrivate Sub Command2_Click()= Right(a, 2)End SubPrivate Sub Command3_Click()End Sub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习2 Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349e = a Mod 10 ' 个位d = (a \ 10) Mod 10 ' 十位c = (a \ 100) Mod 10 ' 百位b = a \ 1000 ' 千位i = (e + 7) Mod 10 ' 个位h = (d + 7) Mod 10 ' 十位g = (c + 7) Mod 10 ' 百位f = (b + 7) Mod 10 ' 千位交换后的个位交换后的千位交换后的十位交换后的百位l = f * 1000 + g * 100 + h * 10 + i = FalsePrint " 加密前的4位整数是7439"; (Chr(10)); " 加密后的结果是"; l End Sub初始界面单击窗体运行后的界面自测练习1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox(" 输入第一个数", "b = Val(InputBox(" 输入第一个数", "f = Fix(f * 100 + / 100& "x/y=" & f, , " 输出的结果"End Sub自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!Print " 和="; ePrint " 平均值="; f 输入一个数", 8)) 输入一个数", 7))MsgBox"x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10)a = Val(InputBox(" 输入第一个数的值"))b = Val(InputBox(" 输入第二个数的值"))c = Val(InputBox(" 输入第三个数的值"))d = Val(InputBox(" 输入第四个数的值"))End Sub自测练习3Private Sub Form_Click()Dim h%, f%, x%, y%h = Val(InputBox(" 输入总头数"))f = Val(InputBox(" 输入总脚数"))x = (4 * h - f) / 2y = (f - 2 * h) / 2Print " 笼中鸡的头数为"; x; 只"Print " 笼中兔的头数为"; y; 只"End Sub自测练习1：Private Sub Form_Click()Dim a%, b%, c%a = Val(InputBox(" 请输入第一条边", " 边长"))b = Val(InputBox(" 请输入第二条边", " 边长"))c = Val(InputBox(" 请输入第三条边", " 边长"))If a + b > c And a + c > b And b + c > a ThenIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b = c * c = a * a ThenPrint " 直角"ElseIf a = b And b = c ThenPrint " 等边三角形"ElseIf a = b Or a = c Or b = c ThenPrint " 等腰三角形"ElsePrint " 一般三角形"End IfElsePrint " 不是三角形"End IfEnd Sub不是三角形运行结果：初始窗口：输入三条边：运行结果：直角三角形运行结果：等边三角形运行结果如下：等腰三角形：般三角形自测练习2：Private Sub Form_Click()Dim a%, b!a = Val(InputBox(" 请输入"))If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Then b = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口: 输入一个数: 运行结果: 自测练习3Private Sub Comma nd1_Click()Dim a%, b% a = ValSelect Case a > 0Case a < 20MsgBox "行李费为元/kg",," 行李费Case a >= 20 And a < 50MsgBox "行李费为元/kg",," 行李费Case a >= 50 And a < 100MsgBox "行李费为元/kg",," 行李费Case Elseb = * 100 + (a - 100) * : MsgBox " 行李费为"& b & "元",,"行李费End SelectEnd Sub初始窗口: 输入10: 输入25: 输入55: 输入120: 自测练习1Op tio n Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As In teger a(1) = 1: a(2) = 1Print a(1);Print a(2);For i = 3 To 10 a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFori = 11 To 16a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 17 To 20 a(i) = a(i - 1) + a(i - 2) Print a(i);Next i初始界面：运行结果界面：自测练习2Option Base 1Private Sub Form_Load()= 10000= 5000End SubPrivate Sub Command1_Click()Dim i%, j%, t%, a(1 To 4, 1 To 4) As Integer For i = 1 To 4For j = 1 To 4 a(i, j) = Int(Rnd * 10) + 1a(i, j);Next jNext i " 对角线的元素如下"For i = 1 To 4 a(i, i);Next iFor i = 1 To 4 a(i, 5 - i);Next iFor i = 1 To 4 t = a(1, i) a(1, i) = a(4, i) a(4, i) = t Next iFor i = 1 To 4 t = a(i, 2) a(i, 2) = a(i, 3) a(i, 3) = t Next iFor i = 1 To 4Forj = 1 To 4 a(i, j)；Next jNext iEnd Sub运行初始界面:运行结果界面: 自测练习1Sub itostr(a As In teger)Dim b%, c$ a = VaiWhile a >= 1 c = Chr(a Mod 10+ 48) & c0 Fornnl施机;^生的拒畔相应处運输入矩阵茹处理般曲越$a = a \ 10WendEnd SubPrivate Sub Command1_Click()Dim a As Integer a = ValCall itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function area(n) As DoubleDim c#, d#, e#, s# n = Val c = (1 - 0) / nWhile e <= 1 d = I * c: e = (I + 1) * c s = s + (Sin(d) + Sin(e)) * c / 2 area = s WendEnd FunctionPrivate Sub Command1_Click()Dim s As DoubleCall area(n) = area(n)End Sub运行初始界面：运行结果：自测练习3Private Sub Form_click() n =Val(InputBox(" 请输入n 的值")) x = Val(InputBox(" 请输入x 的值"))Print "e 的值="; es(n, x)End SubPrivate Function es(n, x)Dim a As Double, b As Double, c As Double, i As Integer a = 1: b = 1: c = 1For i = 1 To n a = x * a: b = b * i: c = c + a / bNext i es = cEnd Function运行初始界面：输入数据：运行结果：自测练习4：For i = 1 To 4For j = i + 1 To 5If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 5Print a(i); " ";Next iFor i = 1 To 5If Y < a(i) Thent = a(i): a(i) = Y: Y = tEnd IfNext iFor i = 1 To 6a(6) = tNext iEnd FunctionPrivate Sub Command1_Click()Dim i#, a%(1 To 6), Y%Y = Val(InputBox(" 输入y 的值", " 输入数据"))Insertfun a%(), YPrintFor i = 1 To 6Print a(i); " ";Next iEnd Sub运行初始界面：插入数据：运行结果：自测练习1：Private Sub Command1_Click()If = 1 Then = " 报名参加羽毛球比赛" End IfIf = 1 Then = " 报名参加乒乓球比赛"If = 1 And = 1 ThenEnd If= " 报名参加羽毛球，乒乓球比赛"End IfEnd Sub运行初始界面：运行结果：自测练习4：Private Sub Form_Load()= 24 = " 黑体" = &HFF&End SubPrivate Sub Option1_Click() = " 我是学生"End SubPrivate Sub Option2_Click() = " 我是教师"End SubPrivate Sub Option3_Click() = " 我是工人"Private Sub Option4_Click()End Sub= " 我是农民"End Sub运行初始界面：运行结果：自测练习6：Private Sub Command1_Click()For i = 0 To - 1If (i) = ThenExit ForEnd IfNext iIf i > - 1 ThenEnd IfEnd SubPrivate Sub Command2_Click()If <> -1 ThenFor i = 0 To - 1If (i) = ThenEnd IfExit ForNext iEnd IfEnd SubPrivate Sub Command3_Click()End Sub运行初始界面:自测练习7：Private Sub Command1_Click()= TrueEnd SubPrivate Sub Form_Load()= 20= 20= 20= 20End SubPrivate Sub Timer1_Timer() lbltem = = + 10If VSbwd >= 100 Then lbltishi = " 水开了" = FalseEnd IfEnd Sub运行初始界面：运行结果：自测练习1：Private Sub myhelp_Click()End SubPrivate Sub mymenu1_Click() = " 百货大楼"End SubPrivate Sub mymenu2_Click() = " 利客隆"End SubPrivate Sub mymenu3_Click() = " 稻香村"End Sub运行初始界面：运行结果界面：自测练习2：Private Sub Dis_Click() = " 菜单程序设计" = 20 = " 黑体"End SubPrivate Sub Hid_Click() = FalseEnd Sub运行初始界面：运行结果界面：自测练习3：Private Sub vbhelp_Click() r = MsgBox(" 帮助", , " 程序设计题")End SubPrivate Sub Vbnew_Click() r = MsgBox(" 新建", , " 程序设计题")End SubPrivate Sub vbopen_Click() r = MsgBox(" 打开", , " 程序设计题")End SubPrivate Sub vbsave_Click()自测练习1： r = MsgBox （"存盘”，，" 程序设计题"）End Sub运行初始界面: 运行结果: 自测练习4:Private Sub Comma nd1_Click()End Sub运行初始界面:打开萱我菊園（1）：文件名oa ） ； I立件类型电》：Ir 以只读方式打开區IPrivate Sub Command1_Click()Dim a As String, n%, i%, j%我最近皈由 O ■ \ 27 我的文趋 岡上嘟居^41121(1£S □141130110041145029 口 411旳［)13_辛诒_经济L1D1 亡J jag 己1« iT^ Temp 匚PySoEt 巴第五次实脸要貳文楼 □新建文件夹g2O074£3LS294SS£4 总听ni咫S ! O S6u_p L nyi n J& 1tfySystem已義单SCX倉第五欢实脸要求丈档四寫件基^操作测试內容回数据1国數据1®数据l.dbc0掏门鄱爰甘濒SllfU 实甜直评d Hl 取消Open "E:\" For Input As #1Input #1, a n = Len(a)For i = 1 To nIf Mid(a, i, 1) = "%" Then j = j + 1 Next iClose #1Open "E:\" For Output As #1Print #1, jClose #1End Sub运行初始界面：运行结果：自测练习3：Private Sub Form_Click()Dim x$Open "e:\" For Input As #1Do While Not EOF(1)LoopClose #1Open "e:\" For Append As #1Print #1, x$Close #1Line Input #1, x$运行初始界面：自测练习4Private Sub Form_load()Print " 26 个英文字母"PrintPrint " a b c d e f g h i j k l m n o p q r s t u v w x y z" Print " 字母个数分别为"End SubPrivate Sub Form_Click()Open "E:\" For Output As #1文本$ = InputBox（" 请输入文本"） n = UCase( 文本$)Print #1, nOpen "E:\" For Output As #1For i = 1 To Len(n)ReDim Preserve a(1 To 26) j = Asc(Mid(n, i, 1)) - 64 a(j) = a(j) + 1Next iClose #1For j = LBound(a) To UBound(a)Print a(j);Next jClose #1Dim a%()。
大学计算机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实验报告(含答案)
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
图1.1实验1-1运行界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then
VB实验指导书_理论综合练习题_答案(完结版)
第二部分综合练习理论练习一一单选1-5 CDCCB 6-10 ABDCD 11-15 CCBBD 16-20 DBCBA 二多选1 ABCE2 CE3 BCE4 ADE5 ABCD6 ABCDE7 ACD8 ABCDE9 ABC 10 ABCDE三判断1-5×√×√√6-10 √×√√√四填空、1 x=int(Rnd*101) End If avg=s/82 i=1 to 10 Right(str(i),1) 或Right(str(i mod 10))3 m*n/GCD(m,n) GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a(10)Clscreatedata a()sort a()For i = 1 To 10Print a(i);Next iEnd SubSub createdata(a())For i = 1 To 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9For j = 1 To 10 - iIf a(j) > a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As #1 Len = Len(student) End SubPrivate Sub cmdadd_Click()student.no = Text1.Textstudent.Bscj = V al(Text2.Text)student.Sjcj = V al(Text3.Text)lastrecord = LOF(1) / Len(student) + 1Put #1, lastrecord, studentText1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub理论练习二一单选1-5 CABCD 6-10 ABCCD 11-15 BBBAB 16-20 DBAAC 二多选1 CD2 AD3 CE4 BC5 AD6 BCDE7 CDE8 ABCDE9 ABD 10 ACDE三判断1-5××××√6-10 √√√××四填空1 n-1 或者Sqr(n) 0 True2 x y3 1 to 10 2*i-14 Button=2 start=True -(x,y)五阅读程序1-5 DBDAB六程序设计1Private Sub Form_click()japan = 47528china = 22257n = 0Do While china <= japanchina = china * 1.098japan = japan * 1.028n = n + 1LoopPrint n & "年之后，中国GDP将超过日本"End Sub2' VB6中的Split函数，其功能是将一字符串用分界符分割为一字符串数组。
VB实验报告答案 txt
End Sub
方法二
Private Sub Command1_Click()
x = InputBox("请输入弧度数值", "弧度转换", 0)
xx = Val(x)
Dim x!, a!, aa%, b!, bb%, c!, cc$
x = Val(Text1)
a = x * 180 / 3.14
aa = Int(a)
b = (a - aa) * 60
bb = Int(b)
c = (b - bb) * 60
cc = Format(c, "#.000")
If x > y Then
t = x: x = y: y = t
End If
End If
Label1 = x & Space(5) & y & Space(5) & z
End Sub
2-4
方法一
Private Sub Command1_Click()
x = Val(InputBox("请输入上网时间:"))
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
VB程序设计教程试验指导与习题解答上机答案
自测1程序代码Private Sub Command1_Click() Labell .FontSize = Labell .FontSize + 3End SubPrivate Sub Command2_Click() Label1 .FontBold = TrueEnd SubPrivate Sub Command3_Click() Label1 .FontUnderline = TrueEnd SubPrivate Sub Command4_Click() Label1 .FontSize = 10Label1 .FontBold = False Label1 .FontUnderline = FalseEnd Sub初始窗口:单机放大之后窗口: 单机下划线之后窗口:单击加粗之后窗口: 单击还原之后窗口:自测2程序代码Private Sub Command1_Click() Labell = "visual basic"Textl ="程序设计题"End SubPrivate Sub Command2_Click() Text1 = "visual basic"Label1 ="程序设计题"End Sub初始窗口:交换显示 单击显示之后窗口:FormlFormlTestivi SU ^L L basic 程序设计题 显示单击交换之后的窗口:自测题3Private Sub Comma nd1_Click()Labell.Fo ntSize = Labell.Fo ntSize * (0.5)End SubPrivate Sub Comma nd2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20Label1.Alig nment = 1 End Sub初始窗口:单击缩小两倍之后的窗口:单击向右下角移动之后的窗口:缩小两倍标签的属性设畳向右下角移动自测题4程序代码Private Sub Command1_Click() Forml.Caption = "VB 学习"Print "简单的VB程序设计"End SubPrivate Sub Command2_Click()乌FormlClsEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Command3_Click() EndEnd Sub初始化窗口：单击显示之后的窗口:单击清除之后的窗口:单击退出之后的窗口：ih 191 - vHuiJ tMH ：Hi*E! M1£| *凹 T»c.i ffisa：1 «2'耳11也 n^Li ftft? Ulil> 井回 ■一阖 耳储凹 £J - U- ' # ■ X ■甩腐 I G c I 卜 II ・对 EF 曲曽 41M41 0 Ifl] - Fermi (fern^ n 2 口Q -0Cl Pciml CI IS ：-陶E 4 gdH撑 4 JT.KjS .兰I□ 30 B^1«L QftLj0 F GE L £T H II■It • Form 】«婀田判踽砸1>：■»?：>i*fF^iruch I - ]| 花Unftabav F faSiU F K K-L-T□ 卿值疏瞬 fc<r-Ur3«.ylB t - S LCI I I L H r-H h- pi^Capi.Tii-iTrwC-E^riLIra Ev«4.J. R •皿[T-U1IJI.I EulL.J FilK-L-r 皿口讣“ F L U• ■■FAfruBTr-irvCiLo- Trw 13 -亡■卄 Jui tf -矗Li 4T IM w'-mlrw自测题5 程序代码Private Sub Command1_Click()Textl .Text =""Text2 .Text =""End SubPrivate Sub Command2_Click()Text3 .Text = Val(Text1 .Text) + Val(Text2 .Text) End SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口:单击运算之后窗口:单击清除之后的窗口:单击退出之后的窗口ItfHal -魯工cgn冋咅13MIE-當eH._*w 酉軽-A E Jlq -卑巨m ^BAD区，F «E -iK y >3L ■•■二・®C F 爭味*6£3|1ss-privaCDSubcommancHIC-ick()DimaSa HTexf ︱k.TexfLabe-︱k.capfion HLeft?2)EndSubprivaCDSubCommand2lc-ick()a HTexf ︱k.TexfLabe-2.capfion HRighf?2)EndSubprivaCDSub Command3lc-ick()H a- H a --F s IX-Textl.Text = Labell.Caption & Label2.Caption End Sub初始窗口界面输入字符串截取前两个字符Forml I =回］M7Kr wciainiwo漓鯉两平斗截哑診个付字符串连接截取后两个字符字符串连接Forml I = | 回］WT wornniwo截勢载疇个ps;自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%, k%, l% a = 7349e = a Mod 10 '个位d = (a \ 10) Mod 10 ' 十位c = (a \ 100) Mod 10 ' 百位b = a \ 1000 ' 千位i = (e + 7) Mod 10 ' 个位h = (d + 7) Mod 10 ' 十位g = (c + 7) Mod 10 ' 百位f = (b + 7) Mod 10 ' 千位j = ii = f ' 交换后的个位f = j ' 交换后的千位k = hh = g '交换后的十位g = k '交换后的百位l = f * 1000 + g * 100 + h * 10 + i Text1.Visible = False加密后的结果是Print" 加密前的4位整数是7439"; (Chr(10));" "；lEnd Sub初始界面单击窗体运行后的界面自测练习1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(lnputBox(" 输入第一个数","输入一个数",8))b = Val(InputBox(" 输入第一个数","输入一个数",7))c = a + bd = a - be = a * bf = a / bf = Fix(f * 100 + 0.5) / 100MsgBox "x+y=" & c & Chr(10) & "x-y=" & d & Chr(10) & "x*y=" & e & Chr(10) & "x/y=" & f,," 输出的结果"End Sub瑾出的结果塔x+y=15x-y=l x*y=56 如"4自测练习2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(lnputBox(" 输入第一个数的值"))b = Val(InputBox(" 输入第二个数的值"))c = Val(InputBox(" 输入第三个数的值"))d =Val(InputBox(" 输入第四个数的值")) e = a + b + c + dPrin t "和=";e Print" 平均值=";f End Sub0 Forml 口回I—SWT 和二10 平均值二2 5自测练习3Private Sub Form_Click()Dim h%, f%, x%, y%h = Val(lnputBox(" 输入总头数")) f = Val(InputBox(" 输入总脚数")) x = (4 * h - f) / 2y = (f - 2 * h) / 2Print "笼中鸡的头数为";x;" 只" Print"笼中兔的头数为";y;" 只"End Sub自测练习1:Private Sub Form_Click() Dim a%, b%, c%a = Val(lnputBox(" 请输入第一条边","边长"))b = Val(lnputBox(" 请输入第二条边","边长"))c = Val(lnputBox(" 请输入第三条边","边长")) If a + b > c And a + c > b And b + c > a The nIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b c * c = a * a The n Pri nt " 直角"ElseIf a =b And b = c The nPri nt " 等边三角形"ElseIf a =b Or a = c Or b = c The nPri nt " 等腰三角形"ElsePri nt " 般三角形"End IfElsePri nt " 不是三角形"End IfEnd Sub不是三角形运行结果: 初始窗口:输入三条边:运行结果:直角三角形运行结果:等边三角形运行结果如下: 等腰三角形:般三角形自测练习2:Private Sub Form_Click()Dim a%, b!a = Val(l nputBox(" 请输入"))If a Mod 2 = 0 And a Mod 3 = 0 And a Mod 5 = 0 Then b = Sqr(a) Pri nt a, bElseEndEnd IfEnd Sub初始化窗口：输入一个数:运行结果:自测练习3Private Sub Comma nd1_Click()Dim a%, b%a = Val(Text1.Text)Select Case a > 0Case a < 20MsgBox "行李费为0.2元/kg",," 行李费" Case a >= 20 And a < 50MsgBox "行李费为0.3元/kg",," 行李费" Case a >= 50 And a < 100MsgBox "行李费为0.4元/kg",," 行李费”Case Else元",,"行李费"End SelectEnd Sub 初始窗口:输入10: 输入25: 输入55:输入120:自测练习1Option Base 1Private Sub Form_Click() Dim i%, a(1 To 20) As In tegera(1) = 1: a(2) = 1Pri nt a(1);Pri nt a(2);Fori = 3 To 10a(i) = a(i - 1) + a(i - 2) Pri nt a(i);Next iPri ntFori = 11 To 16a(i) = a(i - 1) + a(i - 2) Pri nt a(i);Next iPri ntFor i = 17 To 20a(i) = a(i - 1) + a(i - 2) Pri nt a(i);Next i初始界面:运行结果界面：上Forml I = | 回IWT1 123 5 8 13 21 34 5539 144 233 377 610 9E7159TT 2504 4101 6765自测练习2Option Base 1Private Sub Form_Load()Forml.Width = 10000Form1.Height = 5000End SubPrivate Sub Comma nd1_Click()Dim i%, j%, t%, a(1 To 4, 1 To 4) As In teger For i = 1 To 4 Forj = 1 To 4a(i, j) = In t(R nd * 10) + 1Picturel.Pri nt a(i, j);Next jPicture1.Pri ntNext iPicture3.Print" 对角线的元素如下”For i = 1 To 4Picture3.Pri nt a(i, i);Next iPicture3.Pri ntFor i = 1 To 4Picture3.Pri nt a(i, 5 - i);Next iFor i = 1 To 4t = a(1, i) a(1, i) = a(4, i)a(4, i) = tNext iFor i = 1 To 4t = a(i, 2)a(i, 2) = a(i, 3)a(i, 3) = tNext iFor i = 1 To 4Forj = 1 To 4 Picture2.Pri nt a(i, j); Next jPicture2.Pri nt Next iEnd Sub运行初始界面：运行结果界面:自测练习1Sub itostr(a As In teger) Dim b%, c$a = Val(Textl.Text)While a >= 1c = Chr(a Mod 10 + 48) & ca = a \ 10WendText2.Text = cEnd SubPrivate Sub Comma nd1_Click() Dim a As In tegera = Val(Text1.Text)Call itostr(a)End Sub运行初始界面:运行结果界面:0 Forml 口虽验证其他数字:自测练习2:Public Fun cti on area( n) As Double Dim c#, d#, e#, s#n 二Val(Text2.Text)c = (1 - 0) / nWhile e <= 1d = I * c:e = (I + 1) * cs = s + (Si n(d) + Si n(e)) * c / 2I = I + 1Wendarea = sEnd Fun cti onPrivate Sub Comma nd1_Click() Dim s As DoubleCall area( n)Text1.Text = area (n)End Sub运行初始界面：运行结果:自测练习3Private Sub Form_click()n 二Val(lnputBox(" 请输入n 的值"))x = Val(lnputBox(" 请输入x 的值"))Pri nt "e 的值二"；es( n, x)End SubPrivate Fun cti on es(n, x)Dim a As Double, b As Double, c As Double, i As In teger a = 1: b = 1: c = 1For i = 1 To na = x * a:b = b * i:c = c + a / bNext ies = cEnd Fun cti on运行初始界面：输入数据:。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验一2.Private Sub Command1_Click() Label1.ForeColor = vbRedEnd SubPrivate Sub Command2_Click() Label1.BackColor = vbBlueEnd SubPrivate Sub Command3_Click() Label1.ForeColor = Form1.ForeColor Label1.BackColor = Form1.BackColor End SubPrivate Sub Command4_Click()EndEnd Sub3.Private Sub Command1_Click()Text1.FontSize = 30Command1.Enabled = False Command2.Enabled = True Command3.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text1.FontSize = 6Command2.Enabled = False Command1.Enabled = True Command3.Enabled = TrueEnd SubPrivate Sub Command3_Click()Text1.FontSize = 9Command3.Enabled = False Command1.Enabled = True Command2.Enabled = TrueEnd Sub4.Private Sub Command1_Click()a = 3.14r = Val(Text1.Text)Text2.Text = 2 * a * rText3.Text = a * r * rEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub5.Private Sub Command1_Click()Label1.BorderStyle = 1End SubPrivate Sub Command2_Click()Label1.Left = Label1.Left + 200Label1.Top = Label1.Top - 150End SubPrivate Sub Command3_Click()Label1.Visible = FalseEnd SubPrivate Sub Command4_Click()Label1.Visible = TrueEnd Sub6.Private Sub Command1_Click()Text2.Text = Text1.SelTextText3.Text = Text1.SelLengthText1.Locked = TrueEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub7.Private Sub Command1_Click()Dim r, q, vq = Val(Text2.Text)r = Val(Text1.Text)v = Val(Text3.Text)Label5.Caption = r * 60 * 60 + q * 60 + v End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text2.SetFocusText3.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocusEnd SubPrivate Sub Text2_keypress(keyascii As Integer) If keyascii = 13 Then Text3.SetFocusEnd Sub8.（1）Dim a, v, s, cPrivate Sub Text1_KeyPress(KeyAscii As Integer) a = Val(Text1.Text)If KeyAscii = 13 Thenv = a * a * as = 6 * a * ac = 4 * aLabel5.Caption = vLabel6.Caption = sText2.Text = cEnd IfEnd Sub（2）Dim a, s, v, cPrivate Sub Text1_LostFocus()a = Val(Text1.Text)c = 12 * av = a * a * as = 6 * a * ac = Val(Text2.Text)Label5.Caption = vLabel6.Caption = sEnd Sub（3）Dim a, v, s, cPrivate Sub Text1_Change()a = Val(Text1.Text)v = a * a * as = 6 * a * ac = 12 * aLabel5.Caption = vLabel6.Caption = sText2.Text = cEnd Sub实验二2.Private Sub Picture1_Click()a = Int(Val(Text1.Text) / 100)b = Int((Val(Text1.Text) Mod 100) / 10)c = Int((Val(Text1.Text) Mod 100) Mod 10)d = a * a + b * b + c * cPicture1.Print a; b; c; dEnd Sub3.Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)s = a / bText3.Text = Format(s, "###.##")Text4.Text = a \ bText5.Text = a Mod bEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub4.Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)Picture1.Print Int(Rnd * (b - a + 1) + a); Picture1.Print Int(Rnd * (b - a + 1) + a); Picture1.Print Int(Rnd * (b - a + 1) + a)t1 = Int(Rnd * (b - a + 1) + a)t2 = Int(Rnd * (b - a + 1) + a)t3 = Int(Rnd * (b - a + 1) + a)s = Sqr(t1 + t2 + t3)f = Format(s, "##.####")Picture1.Print "三个数和的平方根" & "=" & f End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub5.Private Sub Form_Load()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) Dim i, xIf KeyAscii = 13 ThenIf Len(Text1) > 25 Theni = InStr(Text1, Text2)x = Left(Text1, i - 1) + Mid(Text1, i + Len(Text2)) End IfEnd IfPicture1.Print xEnd Sub6.Private Sub Command1_Click()RandomizeText1.FontSize = Text1.FontSize * Int(Rnd * 3 + 2) Command1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = TrueEnd SubPrivate Sub Command2_Click()RandomizeText1.FontSize = Text1.FontSize / Int(Rnd * 3 + 2) Command1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = TrueEnd SubPrivate Sub Command3_Click()Text1.FontSize = 9Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseEnd Sub实验三2.Private Sub Form_Click()FontItalic = TruePrint "斜体→程序设计语言"FontName = "黑体"Print "黑体→程序设计语言"FontName = "幼圆"Print "幼圆→程序设计语言"FontName = "楷体_gb2312"Print "楷体→程序设计语言"FontName = "隶书"Print "隶书→程序设计语言"FontName = "@宋体"Print "设置宋体字体旋转"End Sub3.Private Sub Command1_Click()Dim a&, day&, hour&, minute&, second&a = Val(Text1.Text)day = Int(a \ 86400)hour = Int((a Mod 86400) \ 3600)minute = Int((a Mod 3600) \ 60)second = Int(a Mod 60)Picture1.Print a&; "秒" & "=" & day&; "天" & hour&; "小时" & minute&; "分" & second; "秒" End Sub4.Private Sub Command1_Click()r = InputBox("输入圆半径")Text1.Text = rLabel5.Caption = 3.14 * r * rLabel6.Caption = 4 * 3.14 * r * rLabel7.Caption = 4 / 3 * 3.14 * r * r * rEnd SubPrivate Sub Command2_Click()Label5.Caption = ""Label6.Caption = ""Label7.Caption = ""Text1.SetFocusText1.Text = ""End Sub6.Private Sub Command1_Click()Dim H%, F%, X%, Y%H = Val(Text1.Text)F = Val(Text2.Text)X = (4 * H - F) / 2Y = (F - 2 * H) / 2Picture1.Print "鸡的数量"; XPicture1.Print "兔子的数量"; YEnd SubPrivate Sub Command2_Click()Label3.Caption = ""Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd Sub7．Private Sub Form_Load()Text1.Text = ""Text2.Text = ""Label4.Caption = ""End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) Dim p, dIf KeyAscii = 13 Thenp = Val(Text1.Text)d = Val(Text2.Text)s = p * dc = s - (s * 0.005 + s * 0.015 + s * 0.035 + 27.83) Label4.Caption = Format(c, "####.##")End IfEnd Sub实验四2.Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a + b > c Or a + c > b Or b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Label5.Caption = Format(s, "#00.000")ElseMsgBox "不能构成三角形"End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Label5.Caption = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocusEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "输入错误！重新输入"Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocusEnd SubPrivate Sub Text2_LostFocus()If Not IsNumeric(Text2.Text) ThenMsgBox "输入错误！重新输入"Text2.Text = ""Text2.SetFocusEnd IfEnd SubPrivate Sub Text3_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "输入错误！重新输入"Text3.Text = ""Text3.SetFocusEnd IfEnd Sub3.Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)Select Case Text3.TextCase "+"Text4.Text = a + bCase "-"Text4.Text = a - bCase "*"Text4.Text = a * bCase "/"If b = 0 ThenMsgBox "除数为零"Text2.Text = ""ElseText4.Text = a / bEnd IfCase "\"If b = 0 ThenMsgBox "除数为零"Text2.Text = ""ElseText4.Text = a \ bEnd IfCase "mod"Text4.Text = a Mod bCase "^"Text4.Text = a ^ bEnd SelectEnd SubPrivate Sub Command2_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "输入出错！重新输入"Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Text2_LostFocus()If Not IsNumeric(Text2.Text) ThenMsgBox "输入错误！重新输入"Text2.Text = ""Text2.SetFocusEnd IfEnd Sub6.Private Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "不是数字，重新输入！"Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Text2_LostFocus()If Not IsNumeric(Text2.Text) ThenMsgBox "不是数字，重新输入！"Text2.Text = ""Text2.SetFocusEnd IfEnd SubPrivate Sub Text3_LostFocus()If Not IsNumeric(Text3.Text) ThenMsgBox "不是数字，重新输入！"Text3.Text = ""Text3.SetFocusEnd IfEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenDim a(0 To 2) As Integera(0) = InputBox("输入第一个数字", 输入, 0)a(1) = InputBox("输入第二个数字", 输入, 0)a(2) = InputBox("输入第三个数字", 输入, 0)For j = 1 To 2For i = 0 To 2 - jIf a(i) < a(i + 1) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t Next iNext jPicture1.Print a(0); ">"; a(1); ">"; a(2)End IfEnd Sub7.Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If (a Mod 400) = 0 ThenLabel3.Caption = "是闰年"ElseLabel3.Caption = "不是闰年"End IfSelect Case Text2.TextCase 1, 3, 5, 7, 8, 10, 12Label5.Caption = 31Case 2If (a Mod 400) = 0 ThenLabel5.Caption = 28ElseLabel5.Caption = 29End IfCase 4, 6, 9, 11Label5.Caption = 30End SelectSelect Case Text2.TextCase 12, 1, 2Label4.Caption = "冬季"Case 3, 4, 5Label4.Caption = "春季"Case 6, 7, 8Label4.Caption = "夏季"Case 9, 10, 11Label4.Caption = "秋季"End SelectEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Picture1.ClsPicture2.ClsPicture3.ClsText1.SetFocusEnd Sub8.Private Sub Form_Click()a = Val(InputBox("M1"))b = Val(InputBox("M2"))c = Val(InputBox("M3"))d = (a + b + c) / 3If d > 95 ThenPrint "一等奖"End IfIf a = 100 And b = 100 And c >= 80 Or a = 100 And c = 100 And b >= 80 Or c = 100 And b = 100 And a >= 80 ThenPrint "一等奖"End IfIf d > 90 ThenPrint "二等奖"End IfIf a = 100 And b >= 75 And c >= 75 Or b = 100 And c >= 75 And b >= 75 Or c = 100 And b >= 75 And a >= 75 ThenPrint "二等奖"End IfIf a >= 70 And b >= 70 And c >= 70 ThenPrint "三等奖"End IfEnd Sub实验五2.Private Sub Picture1_Click()For n = 2 To 1000If n = n ^ 2 Mod 10 Then Picture1.Print nIf n = n ^ 2 Mod 100 Then Picture1.Print nIf n = n ^ 2 Mod 1000 Then Picture1.Print nNext nEnd Sub3.Private Sub Command1_Click()Dim n%, s$, t As Strings = 0n = 0For x = 10 To 10000If x Mod 3 = 2 Or x Mod 5 = 3 Or x Mod 7 = 2 Then t = t & x & vbCrLfn = n + 1s = s + xEnd IfNext xText1.Text = tPicture1.Print "数的和" & sPicture1.Print "数的个数" & nEnd SubPrivate Sub Command2_Click()Dim n%, s$, t As Strings = 0n = 0x = 10Do While x < 10000If x Mod 3 = 2 Or x Mod 5 = 3 Or x Mod 7 = 2 Then t = t & x & vbCrLfn = n + 1s = s + xEnd Ifx = x + 1LoopText1.Text = tPicture1.Print "数的和" & sPicture1.Print "数的个数" & nEnd Sub5.Private Sub Picture1_Click()Dim n%, s%n = Val(InputBox("n值"))s = 0For i = 1 To ns = s + i ^ 2NextPicture1.Print sEnd SubPrivate Sub Picture2_Click()Dim n As Integern = V al(InputBox("输入n值"))sum = 0Dim a1 As DoubleDim a2 As DoubleDim a As DoubleDim sum As Doublea1 = 1a2 = 1For i = 1 To nt = a1 + a2a1 = a2a2 = ta = a2 / a1sum = sum + aNext iPicture2.Print sumEnd SubPrivate Sub Picture3_Click() Dim n%, s%n = Val(InputBox("n值"))s = 0a1 = 1a2 = 1For i = 1 To nt = a1 * a2Next iPicture3.Print sEnd SubPrivate Sub Picture4_Click() Dim i, n As Integer, s As Double n = Val(InputBox("n值"))If n >= 1 ThenFor i = 1 To nt = 5 * 10 ^ na = t + 5 * 10 ^ ns = s + tNext iPicture4.Print sEnd IfEnd SubPrivate Sub Picture5_Click() Dim i, n As IntegerDim s As Singlen = Val(InputBox("n值"))For i = 1 To ns = s + (-1) ^ (i + 1) * (1 / i) Next it = Format(s, "##0.#######") Picture5.Print tEnd Sub8.Private Sub Command2_Click() Picture1.ClsEnd SubPrivate Sub Command1_Click() For n = 6 To 1000k = 0For x = 1 To n / 2If n Mod x = 0 Thenk = k + xEnd IfNext xIf k = n ThenPicture1.Print kEnd IfNext nEnd Sub10.Private Sub Form_Click()For i = 1 To 9For a = 1 To iPrint Tab(20 - i);NextFor n = 1 To iPrint Trim(n);NextFor s = n - 2 To 1 Step -1Print Trim(s);NextPrintNextEnd Sub实验六2.Private Sub Form_Click()Dim a(100)RandomizeMax = 20Min = 100s = 0n = 0For i = 1 To 100a(i) = Int(Rnd * 81 + 20)Picture1.Print a(i);If i / 10 = i \ 10 Then Picture1.PrintIf a(i) > Max Then Max = a(i)If a(i) < Min Then Min = a(i)s = s + a(i)Next iv = Format(s / 100, "##0.###")For i = 1 To 100If a(i) > (s / 100) Then n = n + 1NextLabel1.Caption = "max=" & Max & vbCrLf & "min=" & Min & vbCrLf & "平均值为" & v & vbCrLf & "大于平均值的元素个数为" & nEnd Sub3.Private Sub Command1_Click()Dim a(), b() As Variant, c() As Singlea = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)Print "第一个数组为：" & vbCrLfFor i = LBound(a) To UBound(a)Print a(i);Next iPrintPrint "第二个数组为：" & vbCrLfFor i = LBound(a) To UBound(a)Print b(i);Next iReDim c(UBound(a))PrintPrint "两个数组相对元素相加的结果为：" & vbCrLfFor i = LBound(a) To UBound(a)c(i) = a(i) + b(i)Print c(i);Next iPrintFor i = LBound(a) To UBound(a) - 1For j = LBound(a) To UBound(a) - 1 - iIf c(j) < c(j + 1) Thent = c(j)c(j) = c(j + 1)c(j + 1) = tEnd IfNextNextPrintPrint "相加的结果的降序为：" & vbCrLfFor i = LBound(a) To UBound(a)Print c(i);NextEnd Sub4.Private Sub Form_Click()Dim a(20)RandomizePrint " 对换前" & crlfFor i = 1 To 20a(i) = Int(Rnd * 89 + 11)Print a(i);If i / 10 = i \ 10 Then PrintNext iPrintPrint " 对换后" & crlfFor i = 1 To 10t = a(i): a(i) = a(i + 10): a(i + 10) = tNext iFor i = 1 To 20Print a(i);If i / 10 = i \ 10 Then PrintNext iEnd Sub6.Private Sub Picture1_Click()n = V al(Text1.Text)ReDim a(n + 1, n + 1), b(n + 1, n + 1)Clsk = 8For i = 1 To nPicture1.Print String((n - i) * k / 2 + 1, " ");For j = 1 To ia(i, 1) = 1a(i, i) = 1a(i + 1, j + 1) = a(i, j) + a(i, j + 1)b(i, j) = Trim(Str(a(i, j)))Picture1.Print b(i, j); String(k - Len(b(i, j)), " ");Next jPicture1.PrintNext iEnd Sub9.'Option Base 1Dim s() As String, n%Private Sub Command1_Click()For i = 1 To UBound(s) - iFor j = 1 To UBound(s) - iIf s(j) < s(j + 1) Then t = s(j): s(j) = s(j + 1): s(j + 1) = t Next jNext iFor i = LBound(s) To UBound(s)Picture2.Print s(i)Next iEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenn = n + 1ReDim Preserve s(1 To n)s(n) = Text1.TextPicture1.Print s(n)Text1.Text = ""Text1.SetFocusEnd IfEnd Sub实验七5.Private Sub tt(x, r)Dim s As StringDom = x Mod rx = x \ rIf m = 10 Then m = "A"If m = 11 Then m = "B"If m = 12 Then m = "C"If m = 13 Then m = "D"If m = 14 Then m = "E"If m = 15 Then m = "F"s = m & sLoop Until x = 0tt(x, r) = sEnd SubPrivate Sub Command1_Click() x = Val(Text1.Text)r = Val(Text2.Text)Call tt(x, r)End SubPrivate Sub Command2_Click() x = Val(Text1.Text)r = Val(Text2.Text)Text3.Text = zh(x, r)End SubPrivate Sub Command3_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd SubFunction zh(x, r)Dim s As StringDom = x Mod rx = x \ rIf m = 10 Then m = "A"If m = 11 Then m = "B"If m = 12 Then m = "C"If m = 13 Then m = "D"If m = 14 Then m = "E"If m = 15 Then m = "F"s = m & sLoop Until x = 0zh = sEnd Function。