VB课后实验6答案

实验6 数组

6-1

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim a(10) As Integer, t As Integer

Print "交换前数据："

For i = 1 To 10

a(i) = ……‘生成20-80之间的随机数

Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值，

‘如不用分号和逗号，则分行输出各数组元素的值。

Next i

Print ‘输出空行,表示后面的输出换到新的一行。

For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一'

个和最后一个的交换，第二个和第九个的交换，以此类推）

‘以下实现数据交换，必须通过第三个变量实现两两数据交换

t = a(i)

a(i) = a(10 - i + 1)

a(10 - i + 1) = t

Next i

Print "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上

面循环只有5次，只能输出5个元素。

For i = 1 To 10

Print ……;

Next i

End Sub

6-2

Private Sub Command1_Click()

Dim a(10) As Integer, i As Integer, aver As Integer

Dim max As Integer, imax As Integer

Dim min As Integer, imin As Integer, sum As Integer

Print "输入评委的评分"

‘①输入数组元素

For i = 1 To 10

a(i) =……

if a(i)<5 or a(i)>10 then

‘出错信息

‘i控制变量作何处理？

endif

Next i

‘②输出数组元素

For i=1 to 10

Print ……;

Next i

Print ‘换行

‘③开始对数组元素进行处理

imax = 1: imin = 1: sum = a(1): max = a(1) ‘imax表示最大元素的下标值，imin表示最小元素的下标值，max变量表示最大值，sum表示元素和变量。

min = a(1)‘min变量表示最小值，初值一定要在循环体外赋值，不然min=0，输入的数组元素值如果都>0，那min永远都为0.

For i = 2 To 10

If max < a(i) Then ……‘找最大值及下标

If min > a(i) Then ……‘找最小值及下标

sum = ……‘求数组元素和

Next i

‘④输出结果

aver = (sum - a(imax) - a(imin)) / 8‘求平均值aver = (sum - max - min) / 8 Print "选手的得分为："

Print aver

End Sub

6-3

‘通用处定义窗体级变量

Option Explicit

Option Base 1

Dim a(5, 5) As Integer‘定义窗体级变量，以便在下面的4个命令按钮的click 事件中使用该数组

Private Sub Command1_Click()

Dim i As Integer, j As Integer ‘不可以再次定义a（5,5），否则a（5,5）只能在command1中有用，在其他命令按钮事件中不起作用。

‘二维数组元素的赋值用二重循环控制

For i = 1 To 5

For j = 1 To 5

a(i, j) = Val(InputBox("输入a(" & i & "," & j & ")的值")) ‘此写法在输

入对话框中可显示数组元素的下标值。

Next j

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer

‘用二重循环控制二维数组元素的输出

……

Picture1.Print Mid(Str(a(i, j)) & " ", 1, 3); Spc(4); ’为了在输出时每列元素列对齐

……

‘用Picture1.Print输出空行

……

End Sub

Private Sub Command3_Click()

Dim imax As Integer, max As Integer, jmax As Integer ‘imax表示最大值元素的下标，imin表示最小值元素的下标，max表示最大元素

Dim sum1%, sum2%, sum3%

Dim i As Integer, j As Integer

For i = 1 To 5

For j = 1 To 5

If 条件 Then

max =……: imax = ……: jmax =……

End If

If 条件 Then sum1 = ……‘i=j时，主对角线上的元素

If 条件 Then sum2 = ……‘i

If 条件 Then sum3 = ……‘i>j时，下三角元素

Next j

Next i

Label1.Caption = "最大元素为a(" & imax & "," & jmax & ")=" & max

Label2.Caption = "对角线元素之和为" & sum1

Label3.Caption = "上三角元素之和为" & sum2

Label4.Caption = "下三角元素之和为" & sum3

End Sub

Private Sub Command4_Click()

Picture1.Cls ‘清屏

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

6-4

Option Base 1

Dim a() As Integer ‘定义动态数组，因为数组元素个数不确定

Private Sub Form_Click()

Dim i As Integer, j As Integer, p As Boolean

Dim n As Integer

For i = 2 To 100

p = True ‘注意True的写法，不能写出Ture

For j = 2 To CInt(Sqr(i)) ‘j不能从1开始，思考一下为什么？

If i Mod j = 0 Then

p = False

Exit For ‘i能被j整出，说明i已不是素数了，没必要继

续执行循环，跳出循环。

End If

Next j

If p Then‘可写成if p=True Then，当P为True时说明i不被j

整除，是素数。

n = ……‘用n变量累计素数的个数

ReDim Preserve ……‘重新声明动态数组a（）的大小，

……‘将素数i赋给数组元素a（n）。

……‘输出即素数。

End If

Next i

‘也可单独做循环输出数族元素a（n），即素数

For i = 1 To n

Print Mid(Str(a(i)) & " ", 1, 3); Spc(4); ‘输出时列对齐

If i Mod 6 = 0 Then Print ‘每行输出6个元素。考虑在图像框中如何换行？Next i

End Sub

6-5

Dim a(5, 5) As Integer, b(1 To 25) As Integer ‘定义窗体级变量，便于各个命令按钮使用该数组，注意在各命令按钮事件中不可再定义这两个数组a和b。Private Sub Command1_Click()

For i = 1 To 5

For j = 1 To 5

……‘给数组a各元素赋初值，同时输出各元素值

Next j

Picture1.Print ‘换行

Next i

End Sub

Private Sub Command2_Click()

‘将二维数组转换成一维数组

For i = 1 To 5

For j = 1 To 5

b((i - 1) * 5 + j) = a(i, j)

Next j

Next i

‘用冒泡法或选择法对数组元素进行排序

……

‘输出排序后的结果

For i = 1 To 25

Picture2.Print ……‘输出一维数族元素b（i）

If i Mod 5 = 0 Then

……‘Picture2换行

End If

Next i

End Sub

Private Sub Command3_Click()

Picture1.Cls

Picture2.Cls

End Sub

6-6

Dim a(1 To 10) As Integer‘定义窗体级变量

Private Sub Command1_Click()

‘给数组a各元素赋初值，同时输出各元素值

For i = 1 To 10

a(i) = Int((50 - 20 + 1) * Rnd) + 20

Picture1.Print a(i);

Next i

End Sub

Private Sub Command2_Click()

‘用冒泡法排序

Private Sub Command3_Click()

‘二分查找

6-7

Option Explicit

Dim s() As String, n As Integer‘定义窗体级变量，其中s为字符数组

Private Sub Command1_Click()

Dim i As Integer, smax As String, imax As Integer, j As Integer Dim s1 As String

‘选择排序，注意：对字符数族元素可直接排序，不必转换成整型数据。For i = 1 To n - 1

imax = i

For j = i + 1 To n

If s(j) > s(imax) Then imax = j

Next j

s1 = s(imax)

s(imax) = s(i)

s(i) = s1

Next i

For i = 1 To n

Picture1.Print s(i)

Next i

End Sub

‘如用冒泡法排序，如何编程？练习一下。

Private Sub Command2_Click()

Picture1.Cls

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

n = ……‘n值加1，即数组元素个数增加1个

ReDim Preserve s(n) ‘动态数组使用前必须声明

s(n) = ……‘用s数组存放字符串

Text1.Text = "" ‘清空文本框，便于输入下一个字符串。

……‘Text1得到焦点

End If

End Sub

6-8

Private Sub Form_Click()

Dim n As Integer, a(5, 5) As Integer

Dim i%, j%, count As Integer, k1%, k2%

n = Val(Text1.Text)

i = 1

j = (n + 1) \ 2

For count = 1 To n * n

a(i, j) = count

If count Mod n = 0 Then

i = i + 1

ElseIf i - 1 < 1 Then

i = n

j = j + 1

ElseIf j + 1 > n Then

j = 1

i = i - 1

Else

i = i – 1: j = j + 1

End If

Next count

For i = 1 To 5

For j = 1 To 5

Print Mid(Str(a(i, j)) & " ", 1, 3); Spc(4);

Next j

Print

Next i

End Sub

vb实验教程答案

第一章 答案： 一、单项选择题 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. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. 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 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. 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 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 二、判断题 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

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

vb实验作业参考答案

VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21)

作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width

vb6.0实验六习题与答案

实验六 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、认识常用控件：单选按钮、复选框、框架、列表框、组合框、滚动条、滑动器（Slider）、时钟、图形控件； 2、学习在窗体中创建常用控件 2、学习在属性窗口和在程序代码中设置属性 3、学习调用控件的方法 4、学习编写各控件和鼠标与键盘的事件过程 二、实验内容 1、单选按钮、复选框、框架 1）设置窗体F1的标题为“复选框、框架和单选按钮”；在窗体中设置复选框Ch1、Ch2 Ch1和Ch2的高度和宽度分别为360和1000；并程序运行时，Check2处于非少许状态。框架Fr1包含单选按钮Op1和Op2。 2）设计窗体，要求 ①标题为“设置字体”； ②在窗体中设置有边框的标签控件Label1，高度和宽度分别为450和3800，标题为“欢迎使用VB”，字号为“四号”，居中显示； ③标题为“字体”框架包含两个标题分别为“楷体_GB2312”和“华文新魏”的单选按钮Op1和Op2； ④标题为“斜体”框架包含两个标题分别为“是”和“否”的单选按钮。 ⑤编写相应控件的事件过程，使得程序运行时，单击“楷体_GB2312”，标签控件的字体为楷体_GB2312，单击“华文新魏”，标签控件的字体为华文新魏；单击“是”，标签控件的字体为斜体，单击“否”，标签控件的字体取消斜体。 Private Sub Option1_Click() Label1.FontName = Option1.Caption End Sub Private Sub Option2_Click()

Vb上机实验答案

第一题 1.制作如图所示窗体界面。（用真实的姓名、班级及学号） 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和， 结果显示在label3中。 https://www.sodocs.net/doc/087619434.html,bel3的背景色每隔1.5秒蓝红交替。

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮，在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()

vbvb期末考试实验答案作业

请参考10_2.exe程序的运行结果，新建一个工程，完成"调色板"程序的设计，该程序由红绿兰三原色进行调色，如果预览满意，单击"应用"按钮，将调好的颜色作为文本框中文字的颜色。将完成后的工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_2目录下。 具体要求如下： 1. 应用程序界面设计参考图示。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为255] 4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。 思考题：拖动滚动条时有没有触发滚动条的Change事件？ 提示: 1. 应用程序界面设计参考图示。 程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的），将其FillStyle属性设置为0。 2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。

3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。 颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。 Private Sub HScroll1_Change(Index As Integer) Text1(Index).Text = HScroll1(Index).Value Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。 设计文本框的Change事件： Private Sub Text1_Change(Index As Integer) HScroll1(Index).Value = Val(Text1(Index).Text) End Sub 5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。 Text2.ForeColor = Shape1.FillColor 下载10_1.exe 请参考10_1.exe程序的运行结果，新建一个工程，完成"过程练习"程序的设计，并将工程文件以Design.Vbp、窗体文件以Design.frm保存到D:\10_1目录下。 具体要求如下： 1. 各题必须按要求用通用过程或函数过程进行编程。 2. "第一题"：编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。 3. "第二题"：编写一个求1+2+……+n的函数Sum(n)，利用该函数计算1+（1+2）+（1+2+3）+……+（1+2+……+100）的和。 4. "第三题"：编写一个三个数中求最大数的函数过程Max(x,y,z)。随机产生7个∈[0，50]之间的整数，然后用这个函数过程分别求出前三个数的最大值、前五个数的最大值以及这七个数中的最大值。 5. "第四题"：编写一个每行可以打印5个下标变量的打印数组的通用过程，。随机产生一个∈[100，500]、有20个下标变量的数组，调用该通用过程打印出原始数据；再将该数组中的偶数组成一个新的数组，再调用该通用过程打印出偶数数组。 思考题：通用过程与函数过程的区别？ 提示:

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. B；20～29 为青年，输出B； 50 8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。实验五循环结构程序设计编程题参考答案（第77页） 1.编写程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序输入。 Y=

2.有一个分数序列 ，求出这个序列前 20项的和。 3. 求∑= 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较 ,... 13 21 , 8 13 , 5 8 , 3 5 , 2 3 , 1 2

VB实验任务8答案

实验任务八 课程名称：程序设计基础VB 实验名称——八、循环结构程序设计（2） 一、实验目的： 1.进一步掌握循环语句的基本结构 2.清楚循环流程，掌握循环语句的描述 4.掌握多重循环结构程序的设计方法 二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）： 程序完善题的做题技巧和方法 建议，先根据程序运行的参考界面和题目要求，分析代码中变量和对象各自的作用（一般从输入或输出方面着手推导和分析），然后填充程序[希望同学们通过实践掌握] 实验1 阅读程序，人工列表写出下列循环的运行次数和执行结果(注意输出格式)，并上机验证结果，并充分使用单步

实验2实验书103页实验5-11 改错题。窗体如图所示。要求程序运行时，在文本框text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。编程以下程序实现此功能。 在调试时发现，如输入“陈”，可以正确删除所有“陈”的项目，但输入“刘”，但输入“刘”，则只删除了“刘邦”，如图b 所示，这说明程序不能适应所有情况，需要修改。 Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = List1.ListCount - 1 To 0 Step -1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub 实验3 实验书实验6-5 编程实现求Armstrong 数，Armstrong 数具有如下特征：一个n 位数等于其各位数的n 次方之和。例如，153=13+53+33 1634=14+64+34+44 提示：把数值转换成字符串后，利用Mid 函数取每一位上的数。 法一： Private Sub Command1_Click() Dim i As Integer, a As Integer, j%, b As Integer, k%, c%, h As Long, d As Long For i = 10 To 99 a = Val(Left(a, 1)) ^ 2 + Val(Right(a, 1)) ^ 2 If a = i Then Print i Next i For j = 100 To 999 b = Val(Left(j, 1)) ^ 3 + Val(Mid(j, 2, 1)) ^ 3 + Val(Right(j, 1)) ^ 3 If b = j Then Print b Next j For k = 1000 To 9999 c = Val(Left(k, 1)) ^ 4 + Val(Mid(k, 2, 1)) ^ 4 + Val(Mid(k, 3, 1)) ^ 4 + Val(Right(k, 1)) ^ 4 If k = c Then Print c 法二： Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListCount - 1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k k = k - 1 End If Next k

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

第1章VB集成环境与VB概述一、选择题 第2章常用控件与界面设计一、选择题

第3章数据、表达式与简单程序设计一、选择题 第4章选择分支与循环 一、选择题 二、填空题 1．5 7 13 12 14 11 2. 3 1 5 3 4 1 3. right(a$,i) 4. 4 5. 6-i 6. 6 11 10 21 13 34 7. 5 14 13 8. Is else end select

9. a*(2*i-1)*(-1)*x/(2*i+2) i+1 10. 0 n-1 11. 1 t*(-1)*x^2/((2*k-1)*(2*k)) Abs(t)>eps 12. count1=count+1 count1>0 13. sum=0 sum+j st & k & “+” 14. 9 x 三、编程题 1. Option Explicit Private Sub Command1_Click() Dim s As String, i As Integer, ch As String * 1 Dim a As Integer, b As Integer, c As Integer s = Text1.Text For i = 1 To Len(s) ch = Mid(s, i, 1) If (ch >= "0" And ch <= "9") Then a = a + 1 ElseIf (ch >= "A" And ch <= "Z") Or (ch >= "a" And ch <= "z") Then b = b + 1 Else c = c + 1 End If Next Print "数字个数"; a Print "字符个数"; b Print "其他字符"; c End Sub 2. Option Explicit Private Sub Command1_Click() Dim i As Integer, n As Integer Dim a As Integer, b As Integer, c As Integer For i = 1 To 50 n = Int(Rnd * 90 + 10) Print n; If i Mod 10 = 0 Then Print If n <= 40 Then a = a + 1 ElseIf n <= 70 Then b = b + 1 Else

vb实验指导答案

实验一 2. Private Sub Command1_Click() Label1.ForeColor = vbRed End Sub Private Sub Command2_Click() Label1.BackColor = vbBlue End Sub Private Sub Command3_Click() Label1.ForeColor = Form1.ForeColor Label1.BackColor = Form1.BackColor End Sub Private Sub Command4_Click() End End Sub 3. Private Sub Command1_Click() Text1.FontSize = 30 Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True End Sub Private Sub Command2_Click() Text1.FontSize = 6 Command2.Enabled = False Command1.Enabled = True Command3.Enabled = True End Sub Private Sub Command3_Click() Text1.FontSize = 9 Command3.Enabled = False Command1.Enabled = True Command2.Enabled = True End Sub 4. Private Sub Command1_Click() a = 3.14 r = Val(Text1.Text) Text2.Text = 2 * a * r Text3.Text = a * r * r End Sub Private Sub Command2_Click() Text1.Text = ""

vb程序设计实验指导习题答案

P178 五 1 Private Sub Form_DblClick() '双击窗体时，通过InputBox输入n，求1/2+1/2^2....+1/2^n Dim n As Integer n = InputBox("输入n的值：") For i = 1 To n s = s + 1 / 2 ^ i Next Print "1/2+1/2^2+...+1/2^" & n & "=" & s End Sub P185五 Dim a(9) As Integer Private Sub Command1_Click() '在文本框显示10个两位随机整数，逗号分隔 Text1.Text = "" For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & a(i) & "," Next i Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command2_Click() '消息框显示最小值 m = a(0) For i = 1 To 9 If a(i) < m Then m = a(i) Next MsgBox "10个数的最小值为：" & m End Sub Private Sub Command3_Click() '消息框显示最大值 m = a(0) For i = 1 To 9 If a(i) > m Then m = a(i) Next MsgBox "10个数的最大值为：" & m End Sub Private Sub Command4_Click() '消息框显示平均值 For i = 0 To 9 m = m + a(i) Next MsgBox "10个数的平均值为：" & m / 10 End Sub P169 2 P169 3 Private Sub Command1_Click() Label1.Top = Label1.Top - Label1.Height / 2 Label1.Height = Label1.Height * 2 Label1.Left = Label1.Left - Label1.Width / 2 Label1.Width = Label1.Width * 2 Label1.FontSize = Label1.FontSize * 2 End Sub P169 4 Private Sub VS1_Change() Text1.Text = VS1.V alue End Sub Private Sub VS1_Scroll() Text1.Text = VS1.V alue End Sub P169 5 Private Sub Command1_Click() For i = List1.ListCount - 1 To 0 Step -1 List2.AddItem List1.List(i) Next i List1.Clear End Sub

vb6.0实验八习题与答案

实验八 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、掌握通用过程和函数的定义及调用方法 2、了解参数的传递 3、掌握简单的递归算法 二、实验内容 1、在窗体层编写过程Proc1(a() as integer)其功能：给数组a赋[0，99]的随机整数，并显示在Text1中；Proc2(a() as integer)其功能是把数组a进行逆序存放。单击“生成随机数”按钮用于调用Proc1过程；单击“调用proc”按钮，调用Proc2过程；单击“输出结果”按钮，将调用Proc2的结果显示在Text2中。 D i m b(9)A s I n t e g e r D i m s t r a A s S t r i n g P r i v a t e S u b C o m m a n d1_C l i c k() C a l l p r o c1(b()) E n d S u b S u b p r o c1(a()A s I n t e g e r) R a n d o m i z e F o r i=0T o U B o u n d(a) a(i)=I n t(R n d*100) T e x t1.T e x t=L T r i m(T e x t1.T e x t)+S t r(a(i)) N e x t i E n d S u b P r i v a t e S u b C o m m a n d2_C l i c k() C a l l p r o c2 E n d S u b S u b p r o c2() F o r i=9T o0S t e p-1 s t r a=s t r a&b(i)&"" N e x t i E n d S u b

VB程序设计教程实验指导与习题解答上机答案

自测1 程序代码 Private Sub Command1_Click() = + 3 End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub

初始窗口： 单机放大之后窗口： 单机下划线之后窗口： 单击加粗之后窗口： 单击还原之后窗口： 自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口：

单击显示之后窗口： 单击交换之后的窗口： 自测题3 Private Sub Command1_Click() = * End Sub Private Sub Command2_Click() = + 30 = + 20 = 1 End Sub 初始窗口： 单击缩小两倍之后的窗口： 单击向右下角移动之后的窗口：自测题4 程序代码

Private Sub Command1_Click() = "VB学习" Print "简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口： 单击显示之后的窗口： 单击清除之后的窗口：

VB课本各个实验课后题答案

实验3 3-2el Private Sub Command1_Click() Dim n% n = Abs(Val(Text1)) Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000") End Sub Private Sub Form_Load() End Sub 3-3 Private Sub Command1_Click() Dim x%, y% x = Int(Rnd * 900 + 100) Print "产生的随机数："; x y = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100 Print "反序数："; Format(y, "000") End Sub Private Sub Command2_Click() Dim x%, y As String x = Int(Rnd * 900 + 100) Print "产生的随机数："; x y = Trim(Str(x)) Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1) End Sub Private Sub Form_Load() End Sub 3-4 Private Sub Command1_Click() Dim m%, n% Randomize m = Val(Text1): n = Val(Text2) x = Int(Rnd * (n - m) + m) y = Int(Rnd * (n - m) + m) z = Int(Rnd * (n - m) + m) Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & z End Sub

vb实验编程答案

欢迎阅读 实验教程 实验三 顺序结构程序设计编程题参考答案 （第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox 分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox 控件进行输入，使用Label 3. 实验四1. 2. 6. 7. ；20～29508. 实验五1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输入。 2.有一个分数序列 ，求出这个序列前20项的和。 3. 求∑=10 1!n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这 , (13) 21,813,58,35,23,12

些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 （第 1.8、 (20) 2. 3.输入 4. 输出

5. 输入5×5的矩阵，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素进行对调。 7. 输入十个学生的三门课程的成绩，并进行如下操作。 (1) 计算并输出每门课程的平均分。 (2) 输出每门课程中的最高分与最低分。 (3) (4) 实验七动态数组、控件数组与自定义类型的数组编程题参考答案（第10页） 6. 自定义学生类型，包括学生姓名、学号和成绩，输入学生人数n，并输入学生的信息，按成绩进行降序排序后输出。程序界面设计如下图。 实验七过程编程题参考答案（第123页）

大一《VB面向对象程序设计》作业及实验报告书_答案[1]

实验一 一 DDBAB,CC(D)DDC,ADDCA 二 windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 代码 双击任意控件或右健快捷菜单选“代码窗口”vb的安装文件夹 属性 方法 font load 对象 实验二 一 BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素 picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 实验三 一

A(BC)(BC)AA,A(BCD)DBB,B 二 3，4，5，6，8，10，11，12，14，15，16 三 abs(x+y) (3+x*y)^2 (-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四 int(rnd*71+20) x*y<0 x mod 3=0 or xmod 7=0 x>=10 and x<20 x>="A" and x<="Z" left(s,3) 或者,mid(s,1,3) 实验四 一 CDCDA,DBBAC 二 (1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3 print m & "月是第二季度" end select 三 (1) x=4 y=13 (2) 10 实验五 一 BCBAC 二 （1）for x=2 to 10 s*(1-1/x) (2) t<1E-6 (3) j

vb实验编程答案

v b实验编程答案 Company number：【0089WT-8898YT-W8CCB-BUUT-202108】

实验教程 实验三 顺序结构程序设计编程题参考答案 （第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox 分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox 控件进行输入，使用Label 控件输出。 3. 输入一元二次方程ax 2+bx+c=0 的系数a 、b 、c ，输出两个实根。要求使用TextBox 控件分别进行输入，使用Label 控件输出。 实验四 选择结构程序设计编程题参考答案 （第58页） 1. 输入一个，判断其是否能同时被3和7整除。 2. 输入三个数，输出其中的最大值。 6. 编程及输出分段函数的值。由键盘输入t 的值，计算y 的值 7. 输出B ；20～29508. 语句实现。 实验五 循环结构程序设计编程题参考答案 （第77页） 1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输 入。 2.有一个分数序列 ，求出这个序列前20项的和。 Y= , (13) 21 ,813,58,35,23,12

3. 求 ∑ = 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较互换法、选择法和冒泡法实现。

郑州大学VB实验报告书 参考 答案

郑州大学VB实验报告书参考答案。。 以下内容均来自百度文库，所以仅供参考。。 不过经亲自测试习题及实验（一）的答案基本正确，除了实验题的3，4小题没有改字形字体颜色什么的。。 实验一 一、选择题 DDBAB,C(CD)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类 form2.show 有语法错误 错误 事件 结构化 文件名和结构 工程 编写代码 双击任意控件或右健快捷菜单选“代码窗口” vb的安装文件夹 属性 方法 font load 对象 三、编程

1-1 Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2 Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub 1-3（基本设置在属性窗口完成！）Private Sub Command3_Click() Print "郑州大学在前进!" End Sub 1-4（基本设置在属性窗口完成！）Private Sub Command4_Click() Label1 = "蓝天、白云、绿水、青山" End Sub 实验二 一

BCBCC,CBBDA,CCCBA,CBDCC 二 form_click() interval,5000 vbp,frm top,left,height,width,像素picture load locked font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1 Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2 Private Sub Command1_Click() Picture1.Visible = True

VB实验参考答案

《https://www.sodocs.net/doc/087619434.html,程序设计》实验参考答案 实验1-3 Dim n% = 0 Private Sub Form1_Click(……) Handles Me.Click n = n + 1 TextBox1.Text = n End Sub 实验1-4 Private Sub Form1_Load(……) Handles MyBase.Load Me.Text = "装入窗体" Me.BackgroundImage = Image.FromFile("tongji.bmp") '当前目录为Bin的Debug Me.Cursor = New Cursor("key04.ico") Me.Icon = New Icon("MISC34.ICO") End Sub Private Sub Form1_Click(……) Handles MyBase.Click Me.Text = "单击窗体" ' Me.Size = New Size(264 + 10, 256 + 30) '图片大小为× Me.BackgroundImage = Image.FromFile("tongji-2.bmp") End Sub Private Sub Form1_DoubleClick(……) Handles MyBase.DoubleClick

Me.Text = "双击窗体" Me.MaximizeBox = False Me.MinimizeBox = False Me.BackgroundImage = Nothing Me.Cursor = Cursors.Default End Sub Private Sub Form1_Resize(……) Handles Me.Resize Me.Size = New Size(264 + 10, 256 + 30) Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D End Sub 实验1-5 Private Sub Button1_Click(……) Handles Button1.Click TextBox1.Font = New Font("隶书", 20) End Sub Private Sub Button2_Click(……) Handles Button2.Click TextBox2.Text = TextBox1.SelectedText TextBox2.Font = TextBox1.Font End Sub 实验1-6 Dim w%, h%