VB程序设计教程 实验2答案
第二次VB实验答案
第二次VB实验答案一：实验目的1.掌握正确书写表达式、赋值语句的规则2.掌握常用函数的使用3.掌握InputBox与MsgBox的使用4.掌握Print方法和Format格式的使用二：实验内容实验B,1Private Sub Command1_Click()Me.Text1 = Int(Rnd * 10 + 0)Me.Text2 = Int(Rnd * 90 + 10)Me.Text3 = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Me.Text4 = (Val(Me.Text1) + Val(Text2) + Val(Text3)) / 3 Me.Text4 = Format(Val(Text4), "0.00")End SubPrivate Sub Command3_Click()Me.Text1 = ""Me.Text2 = ""Me.Text3 = ""Me.Text4 = ""End Sub实验B,2Private Sub Command1_Click()n = (Log(2)) / (Log(1 + 0.008))Text1 = Format(n, "0")End Sub实验B,3Private Sub Command1_Click()Dim g%, s%, b%, x%x = Val(Text1.Text)b = x \ 100s = (x \ 10) Mod 10g = x Mod 10Me.Text2 = g * 100 + s * 10 + bEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 ThenIf Not IsNumeric(Text1) ThenMsgBox "输入非数值数据，请重新输入", , "数据检验"Text1 = ""Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Or Len(Text1) <> 3 ThenMsgBox "输入非3位数，请重新输入", , "数据检验"Text1 = ""Text1.SetFocusEnd IfEnd Sub实验B,4Private Sub Form_Click()Me.Text1 = UCase(bel1)Me.Text2 = Len(bel1)Me.Text3 = Left(bel1, 11)Me.Text4 = Mid(bel1, 12, 6)Me.Text5 = Right(bel1, 5)End SubPrivate Sub Command1_Click()Label2.Caption = "Val函数的结果"Text2 = Val(Text1.Text)End Sub实验B,6Private Sub Command1_Click()PrintFor i = 1 To 5Print Tab(17 - 2 * i); String(2 * i - 1, "★"); String(11 - 2 * i, "☆"); String(2 * i - 1, "★") Next iEnd SubPrivate Sub Command2_Click()ClsEnd SubPrivate Sub Form_Resize()Form1.Width = 4560Form1.Height = 3500End Sub实验B,7Private Sub Command1_Click()x = InputBox("请输入一个正实数")Picture1.Print "平方=" & Format(x ^ 2, "0.000") & " "; "平方根=" & Format(x ^ (1 / 2), "0.000") & " "; "立方=" & Format(x ^ 3, "0.000") & " "; "立方根=" & Format(x ^ (1 / 3),"0.000")End Sub习题二答案2-1、类是同类对象集合的抽象，规定了这些对象的公共属性和方法。
VB程序设计教程实验指导与习题解答上机答案
自测1程序代码Private Sub Command1_Click()Label1.FontSize = Label1.FontSize + 3 End SubPrivate Sub Command2_Click()Label1.FontBold = TrueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd SubPrivate Sub Command4_Click()Label1.FontSize = 10Label1.FontBold = FalseLabel1.FontUnderline = 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()Label1.FontSize = Label1.FontSize * (0.5) End SubPrivate Sub Command2_Click()Label1.Top = Label1.Top + 30Label1.Width = Label1.Width + 20Label1.Alignment = 1End Sub—初始窗口：单击缩小两倍之后的窗口：单击向右下角移动之后的窗口：—自测题4程序代码Private Sub Command1_Click()Form1.Caption = "VB学习"Print "简单的VB程序设计"End SubPrivate Sub Command2_Click()Cls—End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击显示之后的窗口：—单击清除之后的窗口：单击退出之后的窗口：自测题5程序代码Private Sub Command1_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text) End SubPrivate Sub Command3_Click()EndEnd Sub初始化窗口：单击运算之后窗口：单击清除之后的窗口：单击退出之后的窗口：自测练习 1Private Sub Command1_Click() Dim a$a = Text1.TextLabel1.Caption = Left(a, 2) End SubPrivate Sub Command2_Click() a = Text1.TextLabel2.Caption = Right(a, 2) End SubPrivate Sub Command3_Click()—Text1.Text = Label1.Caption & Label2.CaptionEnd Sub初始窗口界面输入字符串截取前两个字符截取后两个字符字符串连接自测练习 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 + iText1.Visible = False—Print "加密前的4位整数是7439"; (Chr(10)); "加密后的结果是"; lEnd Sub初始界面单击窗体运行后的界面自测练习 1Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox("输入第一个数", "输入一个数", 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自测练习 2Private Sub Form_Click()Dim a%, b%, c%, d%, e%, f!a = Val(InputBox("输入第一个数的值"))b = Val(InputBox("输入第二个数的值"))c = Val(InputBox("输入第三个数的值"))d = Val(InputBox("输入第四个数的值"))e = a + b + c + df = e / 4—Print "和="; ePrint "平均值="; fEnd 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 Thenb = Sqr(a)Print a, bElseEndEnd IfEnd Sub初始化窗口：输入一个数：—运行结果：自测练习 3Private Sub Command1_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 Elseb = 0.2 * 100 + (a - 100) * 0.5: MsgBox "行李费为" & b & "元", , "行李费"—End SelectEnd Sub初始窗口：输入10：输入25：输入55：—输入120：自测练习 1Option Base 1Private Sub Form_Click()Dim i%, a(1 To 20) As Integer—a(1) = 1: a(2) = 1Print a(1);Print a(2);For i = 3 To 10a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 11 To 16a(i) = a(i - 1) + a(i - 2)Print a(i);Next iPrintFor i = 17 To 20a(i) = a(i - 1) + a(i - 2)Print a(i);Next i初始界面：运行结果界面：自测练习 2Option Base 1Private Sub Form_Load() Form1.Width = 10000 Form1.Height = 5000 End 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 4a(i, j) = Int(Rnd * 10) + 1Picture1.Print a(i, j);Next jPicture1.PrintNext iPicture3.Print "对角线的元素如下" For i = 1 To 4Picture3.Print a(i, i);Next iPicture3.PrintFor i = 1 To 4Picture3.Print 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 4For j = 1 To 4Picture2.Print a(i, j);Next jPicture2.PrintNext iEnd Sub运行初始界面：运—运行结果界面：自测练习 1Sub itostr(a As Integer)Dim b%, c$—a = Val(Text1.Text)While a >= 1c = Chr(a Mod 10 + 48) & ca = a \ 10WendText2.Text = cEnd SubPrivate Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Call itostr(a)End Sub运行初始界面：运行结果界面：验证其他数字：自测练习2：Public Function 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 + (Sin(d) + Sin(e)) * c / 2I = I + 1Wendarea = sEnd Function—Private Sub Command1_Click()Dim s As DoubleCall area(n)Text1.Text = 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 Integera = 1:b = 1:c = 1For i = 1 To na = x * a:b = b * i:c = c + a / bNext ies = 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) = t— End 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%(), YPrint—For i = 1 To 6Print a(i); " ";Next iEnd Sub运行初始界面：插入数据：运行结果：41011060蓝志鹏资源1102 实验8自测练习1：Private Sub Command1_Click()If Ch1.Value = 1 ThenText1.Text = "报名参加羽毛球比赛"End IfIf Ch2.Value = 1 ThenText1.Text = "报名参加乒乓球比赛"End IfIf Ch1.Value = 1 And Ch2.Value = 1 ThenText1.Text = "报名参加羽毛球，乒乓球比赛" End IfEnd Sub运行初始界面：运行结果：自测练习4：Private Sub Form_Load() Label1.Alignment = 2Label1.FontSize = 24Label1.FontName = "黑体" Label1.ForeColor = &HFF&—End SubPrivate Sub Option1_Click()Label1.Caption = "我是学生"End SubPrivate Sub Option2_Click()Label1.Caption = "我是教师"End SubPrivate Sub Option3_Click()Label1.Caption = "我是工人"End SubPrivate Sub Option4_Click()Label1.Caption = "我是农民"End Sub运行初始界面：—运行结果：。
VisualBasic程序设计教程第三版课后习题答案
VisualBasic程序设计教程第三版课后习题答案《VB程序设计》综合复习资料第⼀章Visual Basic程序设计概述⼀、填空题1、V isual Basic是⼀种⾯向__________的可视化程序设计语⾔，采取了__________的编程机制。
2、在VB中⼯程⽂件的扩展名是____________，窗体⽂件的扩展名是____________，标准模块⽂件的扩展名是____________。
3、执⾏“⼯程”菜单下的__________命令，可选择并添加ActiveX控件。
4、V isual Basic 6.0⽤于开发__________环境下的应⽤程序。
⼆、选择题1、下⾯不是VB⼯作模式的是（）A．设计模式B．运⾏模式C．汇编模式D．中断模式2、可视化编程的最⼤优点是（）A．具有标准⼯具箱B．⼀个⼯程⽂件由若⼲个窗体⽂件组成C．不需要编写⼤量代码来描述图形对象D．所见即所得3、下列不能打开属性窗⼝的操作是（）A．执⾏“视图”菜单中的“属性窗⼝”命令B．按F4键C．按Ctrl+TD．单击⼯具栏上的“属性窗⼝”按钮4、下列可以打开⽴即窗⼝的操作是（）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、V isual Basic的编程机制是（）A．可视化B．⾯向对象C．⾯向图形D．事件驱动三、简答题1、代码窗⼝主要包括哪⼏部分？2、在⼯程资源管理器窗⼝中，主要列出了哪三类⽂件？3、窗体布局窗⼝的主要⽤途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第⼆章简单的VB程序设计⼀、填空题1、设置是否可以⽤Tab键来选取命令按钮，应该⽤______________属性。
2、⼀个控件在窗体的位置由_______和________属性决定，其⼤⼩由__________和_________属性决定。
3、利⽤对象的属性setfocus可获得焦点，对于⼀个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB程序设计习题及答案第2章VisualBasic语言基础知识
第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。
【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。
2. 数值型：数值型数据分为整型数和浮点数两类。
3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。
变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。
vb程序设计教程参考答案
1、B2、A3、B4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。
5、答：事件是指对象能够识别并作出反映的外部刺激。
事件驱动又称消息驱动，事件驱动程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时，该段代码才会被执行。
事件发生的顺序决定了代码执行的顺序，因此每次执行应用程序时，程序代码并不是按照程序编写的顺序来执行的。
6、答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的集成开发环境。
VB的集成开发环境的主界面中包含：标题栏、菜单栏、工具栏、控件箱、工程资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、代码编辑器等元素组成。
7、答： VB菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口、帮助等13项菜单项组成。
8、答：工具栏可自行定义。
标准工具栏中通常情况下有：添加标准exe工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。
9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编写代码；保存工程；运行并调试程序；检查并排除错误；创建可执行文件。
10、Private Sub Command1_Click()Label1.Caption = "I love vb,I hate vb"End Sub1、2、3、S1 输入待判断自然数： N（N>=2）；S2 i=2；S3 判断i是否小于N-1，若不是转S5S4 判断N除以i的余数是否为0,如果不是则i=i+1转S3；S5 判断i是否等于N，若是输出“是素数”，否则输出“不是素数”。
4、S1 输入待判断自然数： N；S2 将N转换成字符S，计算S的长度K；S3 i=1；S4 判断i是否小于K-1，若不是转S6；S5 判断S中的第i位和第K-i+1位是否相等,如果是则i=i+1转S4，如果不是则转S6；S6 判断i是否是中间位数，若是输出“是回文数”，否则输出“不是回文数”。
vb实验报告(答案)
2）属性设置
控件对象属性属性值
Text1 Name Txt1
Command1 Name Cmd1
Cmd1 Caption计算
Txt1 Caption全国计算机等级考试二级
3）代码设计
Private Sub Cmd1_Click()
Print Txt1.SelText
End Sub
17、在名称为Form1的窗体上画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果改变文本框中的内容，则可使文本框移到窗体的右上角。
2、已知字符串A的值为“AbcDe“，现在把它全部转换为大写字母，正确的语句是______Ucase(“AbcDe“)________。
3、有如下程序
a=300 : b=20
a=a + b : b=a–b
a=a–b
print a
print b
分析该程序的功能是_____a与b互换______
4、可以同时删除字符串前导和尾部空白的函数是（C）。
A. ShowB. Hide C. LoadD. Unload
3、在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（C）。
A.设置Enabled的值为TrueB.设置TabIndex的值为1
C.设置TabIndex的值为0D.设置Index的值为0
4、设窗体上有一个文本框Text1，要求只能显示信息，不能输入，则应设置（B）。
Text1.Left = Text1.Left + 50
End Sub
14、在窗体上部设置一个文本框（text1），文本框的下面设置3个命令按钮，其中左边按钮（command1）中标有“单击此按钮”，中间按钮（command2）中标有“清除”，右边按钮（command3）中标有“程序结束”。当程序运行时，用鼠标单击左边按钮时，屏幕上部的文本框中显示“欢迎使用vb6.0”;如果单击中间按钮，则清除文本框中显示的内容；而如果单击右边的按钮，则结束程序。
VB实验报告参考答案(本部)
实验报告参考答案（本部）实验一VB集成开发环境实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签。
②属性设置：标签的width设为2000，height设为300。
有边框是BordStyle设为1，背景透明是BackStyle设为0。
显示“等级考试”是将caption设为“等级考试”，居中是将Alignment 设为2。
③代码设计：无五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）无六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验二简单的VB程序设计实验内容（3）：四、设计流程①界面设计：在窗体上画一个标签、一个命令按钮。
②属性设置：固定边框是BordStyle设为1，背景透明是BackStyle设为0。
③代码设计：分别在3个事件过程form_load()，form_click(),Cmd1_click()中编程。
其中图片从网上下载，与工程文件、窗体文件保存在同一目录，代码中使用相对路径app.path。
五、关键代码（注意：解题方法有多种，其它方法只要能完成实验任务也是正确的）Private Sub Form_Load()Form1.Picture = LoadPicture(App.Path + "\tu.jpg")Form1.Caption = "我的变化"End SubPrivate Sub Form_Click()LBL1.Top = 0LBL1.Left = 0End SubPrivate Sub Cmd1_Click()Cmd1.Height = 1500Cmd1.Width = 2000End Sub六、调试和测试结果至少要写测试结果正确，如果写了调试中出现的典型问题及解决方法，分数给高些实验三数据类型及其运算四、设计流程①界面设计：在窗体上画1个文本框、1个标签、6个命令按钮。
VB程序设计教程 实验2答案
41011066付乾峰资源1103实验2 自测练习1，程序Private Sub Command1_Click()Dim ss = Text1.TextLabel1.Caption = Left(s, 2)End SubPrivate Sub Command2_Click()Dim ss = Text1.TextLabel2.Caption = Right(s, 2)End SubPrivate Sub Command3_Click()Dim ss = Text1.TextText1.Text = Label1.Caption & Label2.CaptionEnd Sub截图自测练习2，程序Private Sub Command1_Click() Dim m%, a%, b%, c%, d%m = V al(Text1.Text)a = m Mod 10b = m \ 10 Mod 10c = m \ 100 Mod 10d = m \ 1000a = (a + 7) Mod 10b = (b + 7) Mod 10c = (c + 7) Mod 10d = (d + 7) Mod 10Print "加密前的4位整数是" & mPrint "加密后的结果是" & a & b & c & dEnd SubPrivate Sub Command2_Click()EndEnd Sub截图“我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划一、活动名称“我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动二、活动意义1.在校庆前，表达九斋学员对北科60年校庆的祝福2.展现九斋学子积极向上的精神风貌3.加深学生与楼层长之间的友谊便于以后的管理4.调动大家对校庆的热情与关注欲望5.增进同学与同学之间的联系活动地点及时间地点：九斋一楼大厅校篮球场时间：2011年3月20日-25日三、活动对象北京科技大学九斋公寓所有学生四、内容：1.活动时间推进表时间任务3月19日-3月24日①成立策划小组，完成活动策划，确定活动主题、模式、流程等基本情况；②成立出题组、宣传组、财务组、后勤保障组进行前期的活动准备3月24日-3月29日①向九斋全体学员征集照片；②给每个宿舍成员一张祝福卡片，征集好的祝愿词；③采购奖品；④做好前期活动宣传3月29日~4月6日①将收集的照片编辑，美化，用计算机软件做成照片墙展布；②安排工作人员及明确分工；③派层长去照一些反应九斋成员精神风貌的特写照片④继续做好宣传，让同学们多多配合4月6日-4月15 ①找到展布打印店，将做成的照片打印成展布；②购置合适大小的展板用来贴祝愿词4月15日-4月22日①将做成的展布挂在篮球场边的围栏；②将写上祝愿词的展板放在九斋宿舍内。
VB语言程序设计习题2
《VB语言程序设计》习题2一、单项选择题1.在Visual Bsaic代码中，将多个语句合并写在一行上的并行符是（）。
A、撇号(')B、冒号(:)C、感叹号(!)D、星号（*）2.通过（）可以在设计时直观地调整窗体在屏幕上的位置。
A、代码窗口B、窗体布局窗口C、窗体设计窗口D、属性窗口3.通过改变选项按钮(OptionButton)控件的（）属性值，可以改变按钮的选取状态。
A、ValueB、StyleC、AppearanceD、Caption4.为了清除列表框中的所有内容，应使用的方法是（）。
A、ClsB、ClearC、RemoveD、RemoveItem5.文本框能输入（）。
A、控制字符B、ASCII字符C、回车D、文本和数字6.下列控件中，没有Caption属性的是（）。
A、框架B、列表框C、复选框D、单选按钮7.文本框控件最多能处理（）字节。
A、32KB、64KC、128KD、16K8.以下能够触发文本框Change事件的操作是（）。
A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容9.要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为（）。
A、0B、1C、2D、310.要使标签所在处透明显示背景，应把BackStyle属性设置为（）。
A、0B、1C、TureD、False11.用（）属性可唯一标志控件阵列中的某一个控件。
A、NameB、IndexC、CaptionuD、TabIndex12.组合框控件是将（）组合成一个控件。
A、列表框控件和文本框控件B、标签控件和列表框控件C、标签控件和文本框控件D、复选框控件和选项按钮控件13.（）使图象(Image)控件中的图象自动适宜控件的大小。
A、将控件的AutoSize属性设为TrueB、将控件的AutoSize属性设为FalseC、将控件的Stretch属性设为TrueD、将控件的Stretch属性设为false14.如果要在命令按钮上显示图形文件，应设置命令按钮的（）。
VB实验二 实验答案
实验报告二实验目的（1）掌握分支结构（if、if else、select case）语句（2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（3）掌握循环嵌套结构（4）掌握素数算法（5）能综合运用循环控制结构解决较复杂的问题实验内容一、选择结构程序设计【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。
（10分）要求：①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。
②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。
③密码输入时，屏幕上不能显示输入字符，以“*”代替。
④当输入不正确时，显示提示信息。
若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。
⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。
图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用实验结果：【请将你的代码粘贴到下面】【请将你的典型结果的截图粘贴到下面】【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）①当收入为200 元以内（含200元）时，免征；②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ；③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ；④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。
程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求纳税程序界面掌握多分支if语句的使用，可自行用select语句改写。
实验结果：【请将你的代码粘贴到下面】【请将你的典型结果的截图粘贴到下面】【实验3-3】猜数游戏程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。
《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案
第1章1.按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption="你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption="你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex=Val(Text1.Text)Text2.Text=15*xEnd Sub第2章1～3题：按要求完成操作练习。
4．Private Sub Command1_Click()'"最大化"按钮Form1.WindowState=2'最大化End SubPrivate Sub Command2_Click()'"还原"按钮Form1.WindowState=0'还原End SubPrivate Sub Command3_Click()'"最小化"按钮Form1.WindowState=1'最小化End Sub5．在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=x*x+y*yEnd Sub6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
vb实验报告答案全(2)(1)
实验一问答题：1、答：常见的有visual Basic、C++、Java、SQL。
用途特点：（参考课本4-5页）2、答：代码是一行或几行命令。
程序是针对某个任务编写的有序代码的集合。
软件是程序和文档的集合。
它们的关系是：代码 < 程序 < 软件3、答：面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。
它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。
4、答：参考课本第9页5、答：类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。
对象——是类的一个实例，继承了类的属性、方法。
控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。
属性——是对象的性质，用来描述和反应对象特征的参数。
事件——响应对象的动作，它发生在用户与程序交互时。
如单击控件、鼠标移动、键盘按下。
过程——指附在该对象上的程序代码，是事件的处理程序。
6、答：参考课本12页到17页。
实验二问答题：1、答通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。
2、答标签label是用来显示信息的，不具有输入功能。
属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。
文本框用来输入、输出数据，编辑文本。
属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。
3、答结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。
4、答要保存2次，分别是工程文件.vbp和窗体文件.frm。
实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.编程机制是C、设计方式是B11.A12.D13.D14.C15.A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11. 工程文件结构及各文件名12. 工程13. 设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象1.Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub2.Private Sub Command1_Click()For i = 100 To 110Print Sqr(i)Next iEnd Sub3.Private Sub Form_Load()Print " 郑州大学在前进！"End Sub4. Private Sub label_click()PrintLabel.caption=”蓝天白云绿水青山”End sub实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B15.A16.C17.B18.D19.C20.C二、填空1. Form_Click()2. Interval、5003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码1.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)Private Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2.Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = False'也可以改为：Picture1.Picture = LoadPicture("") End Sub3.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2) End Sub4.Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5.Private Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_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实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B 11.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) 或mid(s,1,3)操作题：2.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")'上句的输出也可以用下面的print方式:' Print Format(n ^ 2, "#.000"); Spc(2); Format(Sqr(n), "#.000"); Spc(2); Format(n ^ 3, "#.000"); Spc(2); Format(n ^ (1 / 3), "#.000")End Sub3.Private 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 Sub4.Private Sub Command1_Click()Dim m%, n%Randomizem = 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) & zEnd Sub5.Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A10.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操作题：1.方法一：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 Sub方法二：Option ExplicitPrivate 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 Sub2.Private 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 Sub3.Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")Print "输入的数是："; x; y; zIf x > y Then t = x: x = y: y = tIf y > z Then t = y: y = z: z = tIf x > y Then t = x: x = y: y = tPrint "排序结果是："; x; y; zEnd Sub4.方法一：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.5fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元" End IfEnd SubPrivate Sub Command2_Click()EndEnd 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 >= 100End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验五一、选择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 51.Private Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubPrivate Sub Command2_Click()n = 1Do While n <= 100s = s + nn = n + 1LoopPrint sEnd Sub2.Private Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next jNext iEnd Sub3.Private 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 Sub4.'已知x,y,z分别是0~9中的一个数，求x,y,z的值，使得xxz+yzz=532. Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9If (x * 100 + x * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z NextNextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9For y = 0 To 9For z = 0 To 9If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z NextNextNextEnd Sub5.Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1LoopPrint x, nEnd Sub6.Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0))For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Command2_Click()n = Val(InputBox("输入计算到第几项:", , 0))p = 1For i = 1 To ns = s + p * ip = -pNextPrint n, sEnd Sub7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n) Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0))s = 0: t = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0For i = 1 To nt = 0For j = 1 To it = t + jNexts = s + tNextPrint sEnd Sub8.Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 '也可以是Do Until 1 / (2 * n - 1)< 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub9.'5-9:输出所有的“水仙花数”.'所谓的“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。
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实验2 答案顺序结构程序设计
实验2顺序结构程序设计2014年月日代码：Public Class Form1Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChangedTextBox3.Text = Math.Sqrt(Val(TextBox1.Text) + Val(TextBox2.Text))TextBox4.Text = Int(Val(TextBox3.Text)) 结果取整TextBox5.Text = Math.Round(Val(TextBox3.Text), 2) 结果取两位小数End SubPrivate Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChangedTextBox3.Text = Math.Sqrt(Val(TextBox1.Text) + Val(TextBox2.Text))TextBox4.Text = Int(Val(TextBox3.Text))TextBox5.Text = Math.Round(Val(TextBox3.Text), 2)End SubEnd Class2.中等题（1）Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickRandomize() 随机TextBox1.Text = Int(Rnd() * (99 - 10 + 1) + 10)TextBox2.Text = Int(Rnd() * (999 - 100 + 1) + 100)TextBox3.Text = Int(Rnd() * (9999 - 1000 + 1) + 1000)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox4.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3 TextBox4.Text = Format(Val(TextBox4.Text), "0.0") 取一个小数点End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickEndEnd SubEnd Class（2）Public Class Form1Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim n, a, b, c, d, m As IntegerIf Asc(e.KeyChar) = 13 Thenn = Val(TextBox1.Text)a = n Mod 10 取个位b = n \ 10 Mod 10 取十位c = n \ 100 Mod 10 取百位d = n \ 1000 取千位2: m = a * 1000 + b * 100 + c * 10 + dLabel2.Text = "逆序后整数为" & mIf Not IsNumeric(TextBox1.Text) ThenMsgBox("输入有非数字字符，请重新输入", , "数据检验") TextBox1.Text = ""TextBox1.Focus()End IfEnd IfEnd SubPrivate Sub TextBox1_MouseUp(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseUpEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd Class（3）代码Public Class Form1Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.ClickEnd SubButton6.ClickLabel2.Text = Button6.Text & "函数的结果"Dim m$ 字符串m = InputBox("用什么来代替", "replace函数")Dim n$n = InputBox("代替什么字符", "replace函数")TextBox2.Text = Replace(TextBox1.Text, n, m) m代替nEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubEnd Class（4）vb画图Word代码Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickShell("C:\Program Files (x86)\Microsoft Visual Studio 8\Common7\IDE\devenv.exe", 1) End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickShell("%windir%\system32\mspaint.exe", 1)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click。
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第二章 程序设计基础 实验2
实验作业程序设计基础2实验目的1、掌握VB的基本数据类型，变量、常量的定义格式。
2、掌握运算符和表达式的表示方法。
实验要求1、选择题，填空题、运行结果题、转换题标明题号，答案写在实验报告上。
2、程序设计题中的第2题要求把事件代码写在实验报告上。
3、程序设计题单建一个文件夹，以学号和姓名命名，压缩后上交到ftp服务器上。
实验内容一、选择题1.表达式25.28 Mod 6.99的值是[ B ]。
（A）1 （B）5 （C）4 （D）出错2.表达式5 ^ 2 Mod 25 \ 2 ^ 2的值是[ D ].（A）1 （B）0 （C）6 （D）43.表达式( 7 \ 3 + 1) * (18 \ 5 - 1)的值是[ A ]。
（A）8.67 （B）7.8 （C）6 （D）6.674.要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句[ B ]。
（A）Option Base 0 （B）Option Explicit（C）Option Base 1 （D）OptionCompare5.表达式Int(-20.9)+Int(20.9+0.5)-Fix(-17.9)的值为__C____A.-17B.16C.17D.186.如果a,b,c的值分别为3,2,-3,则下列表达式的值是______Abs(b+c)+a*Int(Rnd+3)+Asc(Chr(65+a))A.10B.68C.69D.787.设m=”morning”,下列______表达式的值是”mor”BA.Mid(m,5,3)B.Left(m,3)C.Right(m,4,3)D.Mid(m,3,1)8.如果x是一个正实数，对x的第三位小数四舍五入的表达式是__A____A.0.01*Int(100*x+0.5)B.0.01*Int(10*x+0.5)C.0.01*Int(x+0.5)D.0.01*Int(x+5)9.求一个三位正整数n的十位数的方法是___A___A.Int(n/10)- Int(n/100)*10B. Int(n/10)- Int(n/100)C.n-Int(n/100)*10D. Int(n-Int(n/100)*1010.返回删除字符串前导和尾随空格符后的字符串，用函数 A 。
vb程序设计教程课后答案与实验题答案(第三版)
习题一答案在教材上找。
习题二1.对象指现实世界中的实体。
每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。
类是对同一种对象的集合与抽象。
类包含所创建对象的属性数据，以及对这些数据进行操作的方法。
封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。
VB工具箱中的可视图标是VB系统设计好的标准控件类。
通过将控件类实例化，得到真正的控件对象。
在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。
VB中常用的对象是控件。
此外，VB还提供了系统对象。
窗体是个特例，它既是类也是对象。
当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。
对象的三要素：属性、事件和方法。
属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。
若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。
事件：发生在对象上的事情。
同一事件，对不同的对象，会引发不同的反应。
事件过程：应用程序处理事件的步骤。
应用程序设计的主要工作就是为对象编写事件过程的代码。
方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。
方法是面向对象的，调用时一定要指明对象。
2.窗体和控件具有的基本属性“(1) Name属性：名称所创建的对象名称,在程序中引用。
(2) Caption属性：标题该属性决定了对象上显示的内容。
(3) Height、Width、Top和Left属性决定对象的大小和位置。
(4) Enabled 属性：对象是否允许操作(5) Visible 属性：对象是否可见(6) Font 属性组：文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic斜体FontStrikethru 删除线FontUnderline 下划线(7) ForeColor属性：前景颜色(8) BackColor属性：背景颜色(9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
41011066付乾峰资源1103实验2 自测练习1，程序
Private Sub Command1_Click()
Dim s
s = Text1.Text
Label1.Caption = Left(s, 2)
End Sub
Private Sub Command2_Click()
Dim s
s = Text1.Text
Label2.Caption = Right(s, 2)
End Sub
Private Sub Command3_Click()
Dim s
s = Text1.Text
Text1.Text = Label1.Caption & Label2.Caption
End Sub
截图
自测练习2，程序
Private Sub Command1_Click() Dim m%, a%, b%, c%, d%
m = V al(Text1.Text)
a = m Mod 10
b = m \ 10 Mod 10
c = m \ 100 Mo
d 10
d = m \ 1000
a = (a + 7) Mod 10
b = (b + 7) Mod 10
c = (c + 7) Mo
d 10
d = (d + 7) Mod 10
Print "加密前的4位整数是" & m
Print "加密后的结果是" & a & b & c & d
End Sub
Private Sub Command2_Click()
End
End Sub
截图
“我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划
一、活动名称
“我和校庆合张影，我给校庆送祝福”
——北京科技大学学生公寓九斋活动
二、活动意义
1.在校庆前，表达九斋学员对北科60年校庆的祝福
2.展现九斋学子积极向上的精神风貌
3.加深学生与楼层长之间的友谊便于以后的管理
4.调动大家对校庆的热情与关注欲望
5.增进同学与同学之间的联系
活动地点及时间
地点：九斋一楼大厅校篮球场
时间：2011年3月20日-25日
三、活动对象
北京科技大学九斋公寓所有学生
四、内容：
1.活动时间推进表
时间任务
3月19日-3月24日①成立策划小组，完成活动策划，确定活动主题、模式、流
程等基本情况；
②成立出题组、宣传组、财务组、后勤保障组进行前期的活
动准备
3月24日-3月29日①向九斋全体学员征集照片；
②给每个宿舍成员一张祝福卡片，征集好的祝愿词；
③采购奖品；
④做好前期活动宣传
3月29日~4月6日①将收集的照片编辑，美化，用计算机软件做成照片墙展布；
②安排工作人员及明确分工；
③派层长去照一些反应九斋成员精神风貌的特写照片
④继续做好宣传，让同学们多多配合
4月6日-4月15 ①找到展布打印店，将做成的照片打印成展布；
②购置合适大小的展板用来贴祝愿词
4月15日-4月22日①将做成的展布挂在篮球场边的围栏；
②将写上祝愿词的展板放在九斋宿舍内。
③将活动成果转化及后期宣传
④根据建议墙的同学们意见进行适当调整
2.活动宣传途径
（1）条幅、展板的平面宣传
（2）人人平台及微博的网络宣传
（3）楼、层长与宿舍长信息平台的短信宣传
五、经费预算
项目资金预算/元
合计1000
（不清楚展板展布的收费情况，等具体了解后再做详细预算）
六、活动中应注意的问题和细节：
1、随时保持与公寓自律委员会中心联系，确保信息的顺畅沟通及工作进度报告；
2、各工作人员必须保持高度责任感，明确此次活动不仅是在为同学服务，同时也涉及到学生楼、层长以及学生公寓自律委员会的信誉问题。
注：本次活动最终解释权归北京科技大学学生自律管理委员会九斋北京科技大学学生自律委员会公寓九斋
二〇一二年三月十九日。