vb实验作业1

实验报告参考答案（本部）实验一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个命令按钮。

实例1 计算正方形周长、面积和正方体体积“计算正方形周长，面积和正方体体积”程序运行后的画面如图1所示，此时“计算正方形周长、面积和正方体体积”窗体中只有“输入边长”按钮是有效的。

单击“输入边长”按钮后，弹出一个“输入边长”对话框，该对话框的提示信息是“请输入边长”和“R=”，输入文本框中的默认值为10，如图2所示。

在“输入边长”对话框的文本框中输入边长数值（例如：输入25）后，单击“确定”按钮，又回到窗体，此时，除了“退出”按钮外，其他各个按钮均变为有效。

图1图2图3图4图5单击“周长“按钮，即可在窗体中显示出相应的正方形周长．如图3所示；单击“面积”按钮，即可在窗休中显示出相应的正方形面积，如图4所示；单击“体积”按钮，即可在窗休中显示出相应的正方体体积，如图5所示。

单击上述三个按钮中的任意一个按钮，均会使“退出”按钮变为有效。

再次单击“输入边长”按钮后，“退出”按钮又会变为无效。

1．设置对象的属性“计算正方形周长、面积和正方体体积”程序的窗体中有多个控件列象：1个窗体、2个标签和5个按钮，它们的主要属性设置见下表。

对象的序号按从上到下、从左到右的顺序依次排号。

控件对象的属性设置2．程序代码实例l的程序代码如下。

Rem 声明变量R、L、S为单精度型，在整个窗体模块程序中有效Dim R As Single, L As Single, S As Single, V As SingleRem 单击"Command1"按钮后，求正方形的周长，并显示结果Private Sub Command1_Click()L = 4 * R '计算正方形周长，并将计算值赋给变量LLabel1.Caption = "正方形周长是"Label2.Caption = L '显示计算结果Command5.Enabled = TrueEnd SubRem 单击"Command2"按钮后，求正方形的面积，并显示结果Private Sub Command2_Click()S = R * R '计算正方形面积，并将计算值赋给变量SLabel1.Caption = "正方形面积是"Label2.Caption = S '显示计算结果Command5.Enabled = TrueEnd SubRem 单击"Command3"按钮后，求正方形的体积，并显示结果Private Sub Command3_Click()V = R ^ 3 '计算正方形体积，并将计算值赋给变量vLabel1.Caption = "正方体体积是"Label2.Caption = V '显示计算结果Command5.Enabled = True '使"Command5"按钮有效End SubRem 输入正方形的边Private Sub Command4_Click()Dim TS$ '定义字符型变量TS$TSS = "请输入边" + Chr(13) + Chr(10) + "R；"R = Val(InputBox(TS$, "输入边长", 10, 5000, 1000)) '输入正方形边长Command1.Enabled = True '使"Cornrnand1"按钮有效Command2.Enabled = True '使"Command2"按钮有效Command3.Enabled = True '使"Command3"按钮有效Command4.Enabled = True '使"Cornrnand4"按钮有效Command5.Enabled = False '使"Command5"按钮无效End SubRem 退出程序的运行Private Sub Command5_Click()EndEnd Sub。

作业名称：14秋《VB》作业1 出卷人：SA
作业总分：100 通过分数：60
起止时间：2015-1-13 11:54:52 至2015-1-13 12:25:55
学员姓名：学员成绩：100
标准题总分：100 标准题得分：100
详细信息：
题号:1 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
在Visual Basic工程中，可以作为"启动对象"的程序是___。

A、任何窗体或标准模块
B、任何窗体或过程
C、Sub Main过程或其他任何模块
D、Sub Main过程或任何窗体
标准答案:D
学员答案:D
本题得分:4
题号:2 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是___。

A、Cos (a+b) ^2+5*exp(2)
B、Cos^2(a+b)+ 5*exp(2)
C、Cos (a+b) ^2+5*ln(2)
D、Cos^2(a+b)+ 5*ln(2)
标准答案:A
学员答案:A
本题得分:4
题号:3 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
一个语句要在下一行中继续书写，可以用___符号作为续行符。

A、‘+’
B、-
C、_
D、…
标准答案:C
学员答案:C
本题得分:4
题号:4 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:。

实验一问答题：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 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。

2．熟悉Visual Basic 的集成开发环境。

3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。

4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。

二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序，计算任意输入的正整数的平方根。

3、编写一个应用程序，界面如图1-1所示。

窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。

（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果（输入与输出）。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。

2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

VB换肤（GUI界面）第一种方法：后缀为.she文件的皮肤SkinSharp换肤库不是COM组件，无需进行系统注册，仅以标准dll方式存在。

1.打开vb6开发环境，新建一个工程文件，并存档2.将一个名为“肤色”的文件夹和一个名为SkinH_VB6.dll的文件拷贝到工程所在的目录3.外部函数接口api函数原型，把这原形放在通用声明段Private Declare Function SkinH_AttachEx Lib "SkinH_VB6.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long4.若需要什么样的皮肤（即.she文件）就在相应的事件（比喻在Form_Load()）中输入下面的内容：SkinH_AttachEx App.Path & "/皮肤/vista.she", " "app.path：系统字串常量，返回工程所在的路径。

皮肤：是跟工程在同一目录下的一个文件夹vista.she：皮肤文件，可以把网上下载的.she文件放在同目录下用时，只接按上四步骤即可。

第二种方法：ActiveSkin 4.3软件的应用。

可以自己更改皮肤1.安装ActiveSkin 4.3。

同其它软件安装一样。

2.汉化该软件。

直接运行setup.exe（汉化的安装文件）。

点下一步直至完成3.新建一个VB工程文件，在工具箱灰白色地方右键单击，选择[部件]，在部件对话框中勾选ActiveSkin4.3后单击[应用][确定]4.在出现的两个控件中选择拖入到窗体上。

右键单击，选择[编辑皮肤]即可到ActiveSkin4.3中编辑皮肤bel控件必须使用该部件给的ab控件来替换。

原本的A是不会显示6.选择相应的事件(如Form_Load())。

在该事件中输入：Skin1.ApplySkin Me.hWnd7.如果要移植你的程序到别的机器上运行，请编译打包。

VB程序设计2022年秋学期在线作业1一、单选题1：执行语句Open "C:StuData.dat" For Input As #2 后，系统()。

A将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B在C盘当前文件夹下建立名为StuData.dat的顺序文件C将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中正确答案：A2：语句Dim AA(9,9)所定义数组AA的元素个数为A 18B 81C 100D 90正确答案：C3：表达式Int(Rnd(O)+1)+Int(Rnd(1)-1)的值是()。

A 1B 0C -1D 2正确答案：B4：在窗体模块的通用声明段中声明变量时，不能使用()关键字。

A DimB PublicC PrivateD Static正确答案：D5：新建一工程，将其窗体的(名称)属性设置为MyFirst，则默认的窗体文件名为()。

A Forml.frmB工程1.frmC MyFirst.frmD Form1.vbp正确答案：C6：通过设置ADO数据控件的()属性可以建立该控件到数据源的连接信息。

A RecordSourceB RecordSetC ConnectionStringD Database正确答案：C7：下列控件中，没有Caption属性的是()。

A框架B列表框C复选框D单选按钮正确答案：B8：模拟方形骰子投掷的表达式是()。

A Int(6 * Rnd(1))B Int( 1+6 * Rnd(1))C Int(6 * Rnd(1) -l)D Int(6 * Rnd(1)-1)正确答案：B9：引用列表框(List1 )最后一个数据项应使用()。

A List1.List(Listl1. ListCount)B List1. List(Listl. ListCount - 1)C List1. List(ListCount)D List l. List( ListCounr-1)正确答案：B10：以下可以作为Visual Basic变量名的是()。