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上机实验答案
第一题1.制作如图所示窗体界面。
（用真实的姓名、班级及学号）2.使时间每隔1秒刷新一次3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大值4.在列表框中输入20、22、24、26、28Private Sub Command1_Click()Dim a(1 To 5) As IntegerFor i = 1 To 5a(i) = InputBox("please input a number")Next immax = a(1)For i = 1 To 5If a(i) > mmax Thenmmax = a(i)End IfNext iMsgBox mmaxEnd SubPrivate Sub Timer1_Timer()Label2.Caption = TimeEnd Sub第二题1.两个文本框里输入两个数字从而确定一个范围。
2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和，结果显示在label3中。
bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click()Dim a As IntegerDim b As Integera = Text1.Textb = Text2.Texts = 0For i = a To bIf a Mod 3 = 0 Or b Mod 5 = 0 ThenLabel3.Caption = Label3.Caption & i & ","s = s + i * iEnd IfNext iLabel3.Caption = sEnd SubPrivate Sub Timer1_Timer()If Label3.BackColor = vbRed ThenLabel3.BackColor = vbBlueElseLabel3.BackColor = vbRedEnd IfEnd Sub第三题1、单击按钮，在文本框中显示1到终值的所有整数的平方和2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数Private Sub Command1_Click()Dim a As Integera = Text1.Texts = oFor i = 1 To as = s + i * iNext iText2.Text = sEnd SubPrivate Sub Command2_Click()Dim a As Integera = Text1.TextFor i = 1 To aList1.AddItem iNext iEnd Sub第四题1、“大家好”的背景颜色红蓝黄交替，单击“停止”按钮时停止颜色变化2、在文本框中写入任意数字，单击“生成列表”按钮，将1到文本框中输入数字之间所有能被3整除得数在列表框中显示Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Dim a As Integera = Text1.TextFor i = 1 To aIf i Mod 3 = 0 ThenList1.AddItem iEnd IfNext iEnd SubPrivate Sub Timer1_Timer()If Label1.ForeColor = vbRed ThenLabel1.ForeColor = vbBlueElseIf Label1.ForeColor = vbBlue ThenLabel1.ForeColor = vbY ellowElse: Label1.ForeColor = vbRedEnd IfEnd Sub第五题1、“大家好”电子滚动平当单击按钮“开始”时从左向右滚动，当滚动到屏幕最右端的时候，从新回到最左端开始滚动；单击“停止”按钮时停止滚动2、在文本框中写入任意内容，单击“添加”按钮可以将文本框中的内容加入到列表框中Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.AddItem Text1.TextEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 100If Label1.Left > Form1.Width - Label1.Width ThenLabel1.Left = 0End IfEnd Sub第六题1、标签中写入“大家好”，每秒钟“大家好”和“哈哈”交替出现（即，第一秒出现“大家好”。
vb实验八综合实验答案
实验八综合实验（4个学时）一、实验目的1．掌握常用控件的使用。
2．掌握下拉菜单的设计方法。
3．掌握创建多重窗体程序的有关技术。
4．了解常用事件及过程。
5．掌握顺序文件的打开、关闭和读写操作。
6．掌握三种鼠标事件的用法。
7．综合运用所学的知识，编写具有可视化界面的应用程序。
二、实验内容利用菜单、对话框、选择结构语句、循环结构语句、多窗体、常用控件、过程等知识点进行综合程序设计。
具体要求：1．在主窗体上，设计下拉式菜单：数值计算画图与动画顺序文件退出n! 编写画图程序读写古诗1+3+…+99 S6.1（说明：S6.1表示实验六的第1题）2．分别单击菜单项n!( 要求从键盘键入n的值)，1+3+5+….99时，要求在主窗体中设置Label1显示题目，Label2显示结果界面如下图。
1）Form1中的代码设计如下：Private Sub accumulate_Click()Dim i As Integer, sum As IntegerFor i = 1 To 99sum = sum + iNext iLabel1.Caption = "1+2+3+4+…+99="Label2.Caption = sumEnd SubPrivate Sub factorial_Click()Dim a As IntegerLabel1.Visible = TrueLabel2.Visible = Truea = InputBox("请输入n的值", "注意")La bel1.Caption = "1×2×…×" & a & "="s = 1For i = 1 To as = s * iNext iLabel2.Caption = sEnd Sub2）将从键盘上输入n = 9时的运行界面剪切下来粘贴在下面。
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.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontName = Option2.CaptionEnd SubPrivate Sub Option3_Click()Label1.FontItalic = TrueEnd SubPrivate Sub Option4_Click()Label1.FontItalic = FalseEnd Sub3）在窗体是设置设置框Text1，其中文字为：黑体、四号、居中；设置单选按钮Option1和Option2，标题分别为“福州大学”和“阳光学院”，编写行当的事件过程，使得程序时，单击“福州大学”或“阳光学院”，在文本框中显示“福州大学”或“阳光学院”。
VB实验任务7答案(1)
实验任务7参考答案课程名称：程序设计基础VB实验名称——实验七 选择结构程序设计一、实验目的：1.进一步掌握输入输出函数的函数使用2.掌握if 语句的三种基本结构3.掌握多分支语句select 语句的使用实验1编写程序，求解鸡兔同笼问题。
一个笼子中有鸡X 只，兔Y 只，每只鸡有2只脚，每只兔有4只脚。
今知鸡和兔的总头数为H ，总脚数为F 。
问笼中鸡和兔各若干？Private Sub Form_Click()Dim h As Integer, f As Integer, x As Integer, y As Integerh = InputBox("鸡和兔的总头数H=:", "鸡兔同笼", 71)f = InputBox("鸡和兔的总脚数F=:", "鸡兔同笼", 158)x = (4 * h - f) / 2y = (f - 2 * h) / 2MsgBox "笼中鸡数为" & x & vbCrLf & "笼中兔数为" & yEnd Sub实验2实验书100页实验5-5-2 改错题窗体的界面设计如图所示。
在单击命令按钮后，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应设置。
发现一下程序代码出错，请修改。
实验3实验书101页实验5-7(注意If 语句的使用格式)建立一个文本框，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在标签Label1中，若是大写字母，则把它的小写形式显示在Label1中，若是数字字符，则把该字符直接显示在Label1，其他字符不予显示。
输入的字母总数显示在标签Label2中，如图7-4所示。
解法1的程序代码如下。
Dim n As Integer '模块级变量Private Sub Command1_Click()If Option1.Value = True ThenText1.FontName = "宋体"ElseText1.FontName = "黑体"End IfIf Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfIf Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Text1_Change()Dim ch As String*1ch = Right$(Text1.Text, 1)If ch >= "A" And ch <= "Z" ThenLabel1.Caption = LCase(ch)n = n + 1ElseIf ch >= "a" And ch <= "z" ThenLabel1.Caption =n = n + 1ElseIf ch >= "0" And ch <= "9" ThenLabel1.Caption = chElseLabel1.Caption = ""End IfLabel2.Caption = nEnd Sub解法2：在输入时即对每一个输入的字符进行判断，还可放在文本框的KeyPress事件中，符合条件的字符进行处理，不符合条件的字符不予显示。
VB实验任务12答案
实验任务12课程名称：程序设计基础VB实验名称——实验十二数组（2）一、实验目的：1．掌握数组的声明和数组元素的引用2．掌握定长数组的使用3．掌握数组的基本操作算法4．掌握控件数组的使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1在课前做好，课上验证实验1人工写出如下程序的运行结果，并利用单步调试工具验证执行流程和运行结果，进一步深入弄清和理解数组的访问。
（1）执行下面程序，单击命令按钮，输出结果是。
Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2); arr(3, 4)End Sub（2）运行程序，单击窗体，则在窗体上显示的是。
Option Base 1Private Sub Form_Click()Dim a , Sum As Integer, iSum = 0a=Array(1,3,5,7,9,11,13,15,17,19,21,23)For Each i In aIf i/3 = i\3 Then Sum = Sum + iNextPrint SumEnd Sub实验2实验7-2下列程序代码读入N个数，用选择排序法对这N个数按从大到小的顺序排序，并在文本框Textl 中输出排序结果。
（动态数组）部分程序代码如下，请填空。
Dim a() As IntegerPrivate Sub Command1_C1ick()N=Val(InputBox("请输入N:")) : ReDim A(N)For I=1 To NA(I)=Val(InputBox("请输入A(" & I & "):", ,I))Next IText1.Text=""For I=1 To N−1For J= I+1 To NIf A(I)<A(J) ThenT=A(I)A(I)= A(j)A(J)= tEnd IfNext JText1.Text=Text1.Text & Str(A(I)) &" "Next IText1.Text=Text1.Text & Str(A(N))End Sub实验3实验7-3 实现N ×N 矩阵的转置。
vb6.0实验四习题与答案
实验四专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的1、熟练使用单行选择结构语句 If …Then …Else2、熟练使用块选择结构语句 If … … Else … End If3、多分支块选择结构语句 If ……ElseIf … … ElseIf … … Else … End If 二、实验内容1、设计窗体,按图示设置各控件:要求:编写适当事件过程，当程序运行时，在左边三个文本框各输入一个数，单击“排序”按钮，把它们由大到小排序后，依次显示在右边三个文本框中。
P r i v a t e S u b C o m m a n d 1_C l i c k ()a = V a l (T e x t 1.T e x t ):b = V a l (T e x t 2.T e x t ):c = V a l (T e x t 3.T e x t )I f a > b T h e n t = b : b = a : a = t 'a b 相比较，大的数放在b 里，小的数放在a 里 I f a > c T h e n t = c : c = a : a = t 'a c 相比较，大的数放在c 里，小的数放在a 里 I f b > c T h e n t = c : c = b : b = t 'b c 相比较，大的数放在c 里，小的数放在b 里 T e x t 4.T e x t = c T e x t 5.T e x t = b T e x t 6.T e x t = a E n d S u b4、多分支选择结构 Select Case …Case … … Case … … …Case Else … … End Select2、设计窗体,按图示设置各控件:编写适当事件过程，当程序运行时，在左边两个文本框各输入一个数，单击“求最大值”按钮后，其中最大值显示在右迦的文本框中P r i v a t e S u b C o m m a n d1_C l i c k()a=V a l(T e x t1.T e x t):b=V a l(T e x t2.T e x t)I f a>b T h e nT e x t3.T e x t=aE l s eT e x t3.T e x t=bE n d I fE n d S u b3、按图示设置各控件，编写适当事件过程，程序运行时，在Text1、Text2分别中输入两个自然数，单击“判断”按钮，判断其为是否为自然对，分别在Text3中显示“yes”/“no”。
VB书本实验10答案
实验10 文件一、实验目的和要求了解文件的编程方法。
二、实验内容（题目来自教材第八章第六大题3,4,5）．程序1. 第六大题第3题(p236, 参照vb3.exe)过程设计如下：Private Sub Command1_Click()Dim xh$, mc$, lx$, sl%Open "e:\kccun.txt" For Input As #1 ‘读e:\kccun.txt文件,该文件事先用记事本输入保存在e:\ Open "e:\newkccun.txt" For Output As #2 ‘将删除数量为0的商品写入临时新文件e:\newkccun Do While Not EOF(1)Input #1, xh, mc, lx, sl ‘sl是数量If sl <> 0 ThenWrite #2, xh, mc, lx, slEnd IfLoopClose #1Close #2Kill "d:\kccun.txt" ‘删除原d:\kccun文件Name "e:\newkccun.txt" As "e:\kccun.txt" ‘更名newkccun文件为原kccun文件End Sub程序2. 第六大题第4题(p236, 参照vb4.exe)程序4．过程设计如下：’在通用声明处定义如下变量：Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single, k As Byte ‘k是用于保存1或2 ’’下面为书中代码Private Sub p1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)x1 = X : y1 = YEnd SubPrivate Sub p1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Open "record.txt" For Append As #1If Option1.Value Thenp1.Line (x1, y1)-(X, Y)Write #1, 1, x1, y1, X, YElsep1.Line (x1, y1)-(X, Y), , BWrite #1, 2, x1, y1, X, YEnd IfClose #1End SubPrivate Sub Command1_Click()Open "record.txt" For Input As #1Do While Not EOF(1)Input #1, k, x1, y1, x2, y2If k= 1 Thenp2.Line (x1, y1)-(x2, y2)Elsep2.Line (x1, y1)-(x2, y2), , BEnd IfLoopClose #1End Sub程序5．过程设计如下：‘先将所有姓名保存在工程所在目录的文件aaa.txt中Dim xm As String, i As IntegerPrivate Sub Form_Load()'设计时将List1的MultiSelect 设置为1或2，该属性不能用语句实现（运行时不能修改MultiSelect）Open App.Path + "\aaa.txt" For Input As #1Do While Not EOF(1)Input #1, xm’List1.AddItem xmLoopClose #1End SubPrivate Sub Command1_Click()Open App.Path + "\bbb.txt" For Output As #2For i = 0 To List1.ListCount - 1If List1.Selected(i) = True ThenPrint #2, List1.List(i)End IfNextClose #2End Sub实验提交说明：1）在D）盘建立个人文件夹，名称为学号后三位与姓名，如001张三；2）在个人文件夹中按实验题建子文件夹，如1；3）建立的VB工程保存在各题的子文件夹中；4）对个人文件夹压缩为rar或zip格式；5）发邮件到xxl@主题：VB 001张三实验10。
vb实验作业参考答案
vb实验作业参考答案VB实验作业参考答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。
在学习VB编程过程中，实验作业是非常重要的一部分，通过实践来巩固所学知识。
本文将提供一些VB实验作业的参考答案，帮助读者更好地理解和掌握VB编程。
一、VB基础知识实验作业参考答案1. 实验题目：编写一个VB程序，实现两个整数的加法运算，并将结果显示在文本框中。
参考答案：```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目：编写一个VB程序，实现输入一个数字，判断该数字是奇数还是偶数，并在消息框中显示结果。
参考答案：```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目：编写一个VB程序，实现一个简单的计算器功能，包括加法、减法、乘法和除法操作。
参考答案：```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目：编写一个VB程序，实现一个简单的登录界面，包括用户名和密码输入框以及登录按钮。
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 = 0Text1.Top = 0Text1.Width = Form1.Width / 2Text1.Height = Form1.Height / 2Command1.Left = Form1.ScaleWidth - Command1.WidthCommand1.Top = Form1.ScaleHeight - Command1.Height End SubPrivate Sub Form_Resize()Call Form_LoadEnd SubPrivate Sub Command1_Click()EndEnd Sub作业二1.填空题：（1）Visual Basic 算术表达式a+b/(b+c/(d+e/Sqr(2*a*b)))对应的数学表达式（ ab ed c b ba 2+++ ）。