《Visual Basic语言》上机实验四
实验名称：数据的输入输出（2学时）
一、实验目的
1.掌握Visual Basic中数据输入方法。
2.掌握Visual Basic中数据输出方法。
二、背景知识
1．InputBox函数
该函数产生一个对话框，在对话框中显示提示信息，等待用户输入正文或按下按钮，此时返回包含文本框内容的字符串。
2．MsgBox函数
MsgBox函数也产生一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个Integer数，告诉用户单击了哪一个按钮。MsgBox函数根据所选定参数的不同，可以弹出不同形式的消息框供用户使用。
如果不需要返回值，只是用于显示一个简单的提示信息，采用MsgBox语句即可。3．Print方法
Print方法用于在对象上输出表达式的值。这里的对象可以是Form（窗体）、Debug（立即窗口）、Picture（图片框）、Printer（打印机）。在窗体上Print方法的对象名可以省略。
与该方法经常搭配使用的两个函数是Spc(n)和Tab(n)，其中Spc(n)用来在输出中插入空白字符（n为要插入的空白字符数），Tab(n)用来将插入点定位在绝对列号上（n为列号）。
Print方法后面的多个输出项之间采用“，”或“；”来分隔。用“；”分隔时表示各项按紧凑格式输出，用“，”分隔时表示各项分区段输出。如果在Print语句行末尾无分隔符，表示输出完本语句内容后换行。
三、实验举例
实例1 InputBox函数的不同用法。
Private Sub Form_Click()
Dim strName As String, strTitle As String
Dim strDefault As String, strMyValue As String
'设置提示信息
strName = "请输入数据"
'设置标题
strTitle = "InputBox函数使用举例"
'设置缺省值
strDefault = "2"
'第一种：显示提示信息、标题及缺省值
strMyValue = InputBox(strName, strTitle, strDefault)
'第二种：指定坐标：在1000，1000的位置显示对话框
strMyValue = InputBox(strName, strTitle, strDefault, 1000, 1000) '第三种：显示“帮助”按钮，使用帮助文件
strMyValue = InputBox(strName, strTitle, , , , "DEMO.HLP", 10) End Sub
观察运行结果。
说明：InputBox函数可以使用7个参数，其中第1个参数为必选参数，其余6个为可选参数。上面的实例演示的是给出不同可选参数的值时InputBox函数的运行效果，以帮助读者理解该函数各个参数的含义。
实例1完成后，要求将窗体文件保存为Syjl41.frm，工程文件保存为Syjl41.vbp。
实例2 MsgBox函数和语句的使用。
Private Sub Command1_Click()
Dim r As Integer
MsgBox "最简单的MsgBox"
r = MsgBox("复杂的MsgBox", vbYesNo + vbCritical + vbDefaultButton2, "你看到了么?")
Print "你按的值为"; r
End Sub
观察运行结果。
实例2完成后，要求将窗体文件保存为Syjl42.frm，工程文件保存为Syjl42.vbp。
实例3 Print方法的使用。
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Print "12345678901234567890"
Print Tab(3);10;Spc(3);20,Space$(3); "abc"
Print "cde";
Print 30;Tab(5); "efg"
End Sub
提示：Space$(n)函数的功能是返回n个空格。
程序运行后，单击命令按钮，写出在窗体上显示的内容。请先自己填写下面横线中的内容，然后与计算机的输出结果进行比较，看是否一致，如果不一致找出其中的原因，记录下正确的结果。
（1）数值10显示在第行的第列和列。
（2）数值20显示在第行的第列和列。
（3）字符串"abc"显示在第行的第列、列和列。
（4）字符串"cde"显示在第行的第列、列和列。
（5）数值30显示在第行的第列和列。
（6）字符串"efg"显示在第行的第列、列和列。
实例3完成后，要求将窗体文件保存为Syjl43.frm，工程文件保存为Syjl43.vbp。四、实验内容
1.用Inputbox 函数输入原串与子串，若子串在原串中，用Msgbox 语句提示子串的起始位置。在窗体上画一个名为Command1的命令按钮，单击命令按钮，在出现的两个对话框中分别输入原串“ASDFG ”和子串“DF ”后，程序运行界面如图4.1所示。
将下面命令按钮的Click 事件过程程序补充完整，请填空。
Private Sub Command1_Click()
Dim s As String, t As String
Dim p As Integer s = ' 输入原串 t = ' 输入子串 p = ' 利用Instr 函数查找子串在原串中的位置 MsgBox
End Sub
要求：窗体文件保存为Vbsy41.frm ，工程文件保存为Vbsy41.vbp 。
2.编写程序，首先从键盘输入两个变量值，然后根据选择进行变量值交换。输入变量a 的值的对话框如图4.2所示（输入变量b 的值的对话框与变量a 相近），给出“是否交换”选择的对话框如图4.3所示。据此将下面的程序补充完整，请填空。
提示：编程过程中需要考虑，如果用户在输入数据的过程中直接单击Inputbox 函数生成的对话框中的“取消”按钮或者在对话框中不输入任何内容直接单击“确定”按钮（此时Inputbox 函数返回值为一空字符串），程序应如何应对？
Private Sub Form_Click()
Dim a As Integer, b As Integer, temp As Integer
Dim choice As Integer a = b = choice =
If choice = vbYes Then ' 如果单击了“是”按钮
图4.2 变量a 的输入对话框
图4.3 提供选择的对话框
图4.1 程序运行界面
temp = a: a = b: b = temp '交换a和b的值
End If
Print "a="; a, "b="; b
End Sub
要求：窗体文件保存为Vbsy42.frm，工程文件保存为Vbsy42.vbp。
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
台州学院 《VB程序设计》实验报告实验八：图形的绘制 班级：14制药3班 学号： 姓名： 实验日期：2015.6.5
一、实验目的和要求 1．掌握Visual Basic 容器坐标系的设计方法； 2．熟练掌握Pset、Line和Circle方法的格式及其使用； 3．掌握与图形有关的常用属性，方法。 二、实验主要仪器和设备 计算机一台，Windows XP / Win7操作系统，Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时，先输入各公司月销售额，然后单击命令按钮，图片框中将显示各公司销售额的圆饼图（如图8-1所示）。要求：在文本框中只能输入数字字符；在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。
程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。 图实验1-1 运行界面 三．实验结果：对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四．实验思考： 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C= 5 / 9(F - 32)。F为华氏温度，C为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。 图2-1 图2-2 三．实验结果：对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体
VB上机练习题3 1、实验教材P9 (1) 2、实验教材P9 (2) 3、实验教材P9 (3) 4、在窗体上设计一个标签，要求标签有边框，当程序运行时标签中显示内容为“验证性实验”，窗体的背景颜色为“黄色”，当单击标签时，显示的内容水平居中对齐，双击标签时，标签的背景透明。 5、按照下面窗体的式样设计窗体界面，然后编写程序代码实现下面的加法器功能：当程序运行时单击“出题”按钮，分别在文本框Text1和Text2中随机出[10—90]之间的两位整数（提示：用随机函数Rnd），当单击“=”按钮时，在文本框Text3中显示计算的结果，单击“清除”按钮时，三个文本框中的内容全部清除。 VB上机练习题4 1、设a=2, b=3, c=4, d=5, 求下列表达式的值，将答案写在每题的后面。 (1) a+c < b+d (2) a+b <> c+d (3) a > b AND c<=d (4) b < c AND d>a (5) a < c OR d<=b (6) a > b OR c<=d (7)NOT a>b OR c>=d (8)3>2*b OR a=c AND b <> c OR c< d 2、将下列数学式子写成vb表达式，将答案写在每题的后面。 (1) 5+(a+b)2 (2)e2+2 (3)2a(7+b) (4)8e3ln2 (5) (6) 3、将答案写在每题的后面。 (1) (2)print chr(97) (3)print Asc(“B”)
(4)print Asc(“def”) (5)print Sqr(2) (6) print sgn(2) 4、写出下列程序的运行结果，将答案写在每题的后面。 设ab$=”ABCDEF” (1)Print Left(ab$ , 4) (2)Print Mid(ab$ , 2, 4) (3)print Right(ab$ , 4) (4)print Len(ab$) 5、按照运算符的运算顺序(函数>算术运算符>关系运算符>逻辑运算符) 计算表达式的值：10\ 97 / Asc(“a”)*(18.7 mod 4)+Int(8.7-5.5) 6、产生[10，100]区间内的随机整数使用________________________语句？ 7、实验教程P10 （6）。 8、编写程序，要求程序运行时在四个文本框中分别任意输入相应的信息（见下图），当单 击“计算”按钮时在窗体中按照下图格式输出此人相应的信息及总分和平均分，平均分保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除四个文本框中的内容及窗体中显示的信息。单击“结束”按钮时结束运行。运行界面如下图。（可参考实验教程P16 例2-1） 9、编写程序，要求程序运行时单击“生成”按钮在窗体中输出指定范围内的（范围在程 序运行时由两个文本框任意输入）3个随机整数和这三个随机整数和的平方根，平方根保留两位小数（用Format（S，“###.##”）函数实现）。单击“清除”按钮时清除两个文本框中的内容及窗体中显示的红色信息。单击“结束”按钮时结束运行。运行界面如下图。
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
第一题 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.doczj.com/doc/0015403460.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()
(截止目前所有上机实验及代码。不用画窗体界面，只写题目和代码。填写实验报告也是复习的过程，请务必认真！ ．．．．．．) 实验一：第二章 ⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”，BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。程序运行后，界面如图所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题。 Private sub command1_click() Label1.visible=false Command1.caption=label1.caption End sub ⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框， 名称为Text1，Text属性为空白、一个命令按钮，名称为Command1，标题为“显示”。然后编写命令按钮的Click事件过程。程序运行后，在文本框输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框的内容。要求程序中不得使用任何变量。 上机代码：Private sub command1_click() Label1.visible=false Text1.visible=false Print text1.text End sub ⒊在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，再画两个命令按钮，名 称分别为Command1和Command2，标题分别为“复制”和“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除”按钮，则被选中的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。
大学学生实验报告 开课学院及实验室：地理科学学院2014年4月1日
表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1： 图1 实验A_1窗体界面设计 ⑤代码设计如图2： 图2实验A_1代码设计 （3）实验结果
①运行结果如图3： 图3实验A_1运行结果 ②保存文件如图4： 图4实验A_1文件保存 A_2 （1）实验容：模仿教材例1.1，将事件过程自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2，背景图形文件可以选择自己喜欢的，按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 （2）实验步骤： ①创建一个“标准EXE”工程； ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1； ③设置对象属性；
表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5： 图5 实验A_2窗体界面设计 ⑤代码设计如图6：
VB实验报告(含答案)
实验报告 课程名称_程序设计基础Visual Basic_ 班级______ _____＿姓名_____ ____
实验一 VB环境和创建一个简单的VB程序 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二．实验内容： 1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
实验二简单程序设计数据类型及常用内部函数的简单应用 一．实验目的： 1．掌握Visual Basic数据类型的基本概念。 2．掌握用Visual Basic的各种运算符及表达式。 3．学习使用Visual Basic内部函数和数据输入、输出方法。 4．掌握命令按钮、文本框和标签。 5．设计顺序程序。 二．实验内容： 1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏 温度，用msgbox输出转换后的摄氏温度。转换 公式是：C= 5 / 9(F - 32)。F为华氏温度，C 为摄氏温度。 2.用三种除法运算（/ 、\、Mod）做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
《Visual Basic语言》上机实验三 实验名称：数据类型、运算符和表达式 一、实验目的 1.掌握Visual Basic的数据类型和变量定义方法。 2.正确使用Visual Basic的运算符和表达式。 3.掌握Visual Basic常用函数的使用方法。 二、背景知识 1．Visual Basic的数据类型 Visual Basic提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。Visual Basic将数据类型分为标准数据类型和自定义类型。 标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型、字节型等；非数值类型包括日期型、逻辑型（布尔型）、字符串型和对象型数据类型。 除了以上标准数据类型外，用户还可以根据需要自定义数据类型，称为自定义类型。2．Visual Basic变量的声明 变量用来在程序运行期间临时存储数据。变量名、类型、值称为变量的三要素。变量名表示的是变量在内存中的地址，类型决定了变量在内存中的存储方式和所占内存单元的大小，值指的是变量名所对应内存单元的存储内容。 所谓声明一个变量，就是先将变量的有关信息（变量名和变量的数据类型）告诉程序。变量的声明方式有三种： （1）显式声明：用Dim、Static、Public、Private等声明语句显式声明变量及类型。（2）隐式声明：Visual Basic允许用户在编写应用程序时，不声明变量而直接使用，系统临时为新变量分配存储空间并使用。所有隐式声明的变量都是为变体类型Variant。系统根据程序中赋予变量的值来自动调整变量的类型。 （3）强制类型声明：在程序中用到的变量必须事先声明，要达到此目的，方法是在窗体模块或标准模块的“通用－声明”部分写上语句：Option Explicit，也可以在“工具”菜单中选取“选项”命令，然后在打开的对话框中单击“编辑器”选项卡，再复选“要求变量声明”选项，这样系统就会在新模块中自动插入Option Explicit语句。 3．运算符及优先级 （1）不同类型运算符优先级别如下： 算术运算符＞字符串运算符＞关系运算符＞逻辑运算符 （2）相同类型运算符优先级别如下： ①算术运算符：乘方（^）＞负号（-）＞乘除（*、/）＞整除（\）＞求余（Mod）＞加减（+、-） ②字符串运算符:优先级别相同 ③关系运算符:所有关系运算符优先级别相同 ④逻辑运算符:逻辑非（Not）＞逻辑与（And）＞逻辑或（Or） 4．Visual Basic的表达式 表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。 （1）表达式的类型
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。 单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。 Private Sub Command1_Click() Text1.Font = 黑体 End Sub Private Sub Command2_Click() Text1.ForeColor = vbRed Text2.ForeColor = vbBlue End Sub Private Sub Command3_Click() End End Sub 2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。 Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = vbGreen End Sub Private Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End Sub Private Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub 3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。 Private Sub Command1_Click() Text1.Text = "" Text2 Text1
福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称：Visual Basic 程序设计 姓名：邹丽平 学院: 食品科学学院 专业：食品科学与工程 年级：2010级 学号：102258016001 指导老师：黄红兵 职称：讲师 2012 年5 月20 日
实验项目列表
福建农林大学计算机与信息学院实验报告 学院：食品科学学院专业：食品科学与工程年级： 2010级 姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩： 报告退发（订正、重做） 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境（IDE）。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。 二、实验内容 1.启动Visual Basic 6.0，熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和
以题号保存，如第1题取名：1.Frm 、1.Vbp 。 1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签 控件Label1显示y 值。 ?????>+-<=<=-+?-<-+=5 log 5552 sin 51 23102x x x x x x x x x y x 2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。 3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。在窗体上输出结果，运行效果如下图所示。。 4、 计算下式的和，变量x 与n 的数值用输入对话框输入。在窗体上输出结果，运行效果如下图所示。 )! 1(...!4!3!23 2 +++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。运行结果如图所示。 6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。 7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输 出到窗体，并求出其最大元素及最大元素的行、列坐标。 8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。在窗体的Click 事件中调用该函数。
9、编制通用函数过程(Fact)，计算N！的值。在窗体的Click事件中调用该函数。 10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示 false。在窗体的Click事件中调用该函数。 11、编制通用函数过程(Odd)。用于判断一个整数的奇偶性。在窗体的Click事件中调用该函数。 12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。在窗体的Click 事件中调用该函数。 13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。在窗体的Click事件中 调用该函数。 14、编制函数过程(Sum)，用于计算1个整数的各位数字之和（如引用Sum(132)的结果是6，引用 Sum(-23)的结果是5，等等）。在窗体的Click事件中调用该函数。
实验一熟悉VB6.0开发环境 [实验目的] 1.掌握VB集成开发环境的启动和退出 2.了解VB集成开发环境的基本组成 3.掌握VB常用函数和表达式的应用 4.学会在VB集成开发环境中建立应用程序 [实验内容] 一、VB集成开发环境的启动和退出 1.启动VB集成开发环境 想一想：可以通过哪些方法启动VB集成开发环境。 2.在“新建工程”对话框中选择“标准EXE” 注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？ 3.熟悉VB集成开发环境 4.退出VB集成开发环境 想一想：可以通过哪些方法退出VB集成开发环境。 二、VB集成开发环境的基本组成 1.指出VB集成环境中各组成部分的名称。 2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体 设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。 想一想：可以通过哪些方法打开代码窗口。 3.掌握在窗体设计器窗口中添加控件。 4.学会设置窗体、命令按钮、文本框的最常用属性。 5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件 过程中输入代码。 想一想：窗体、命令按钮、文本框的缺省事件是什么。 三、VB的函数和表达式 1、计算下列函数值。 (1)Sqr(4+3*7) (2)Int(123.8) (3)Abs(-4.6) (4)Mid$(“abcdABCD”,5,4) (5)Len(“湖北民族学院”) (6)Asc(“M”) (7)Asc(Chr(100)) (8)Chr(78) (9)DateDiff(“d”,#3/25/2006#,#10/30/2010#) (10)IsDate(#11/20/2010#)
VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(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
2007—2008(2) VB上机练习题 1．设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。 2．设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。文本框始终处于选中状态。 3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。在连续三次输入错误口令后，给出警告并结束运行。 4．设计一个程序，用户界面如下图所示。程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。 6．设计一个程序，用户界面如下图所示。程序运行后，单击Command1按钮，求出最大最小数。 7．设计一个100（随机函数产生）之内的四则运算题，界面如下。
8．设计一个窗体Forml，界面如右图所示。编写适当的 事件过程，程序运行后在第一个文本框中输入圆的半径， 单击“计算”按钮，分别在第二个和第三个文本框中显示 圆的面积和周长。 9．界面如下图所示。编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
10．某工程运行时，图片框中图可以任意。单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。 11．在文本框T1中打印100~999之间的所有水仙花数。 （该数为各位数字的立方和。例如：153=1 3+5 3+3 3） 12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。 13. 在窗体上画两个命令按钮分别求12+22+32+42+……+1002和1-3+5-7+…+(-1)n+1(2n-1)的累加和。并将结果输出到Label1和Label2中。 14．在窗体上画两个文本框，其名为Text1和Text2，内容为空白，再画一个命令按钮，名为C1，
郑州大学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程序设计上机实验 ----李运娣（本科）
实验一熟悉VB6.0集成开发环境 一实验目的 1 熟悉VB的运行环境，了解VB所用计算机系统软、硬件配置。 2 初步掌握VB开发环境中编写程序的步骤 3 通过运行简单的VB程序，了解VB程序的基本结构及特性。 二实验内容 1 建立自己的文件夹，以备存放文件。 进入VB 集成环境，熟悉VB的菜单栏、工具栏、工具箱、工程管理器、属性窗口、对象浏览器、窗体设计器以及代码编辑器窗口。通过在VB环境下简单程序的编写熟悉编辑、编译和运行一个VB程序的过程。 2 设计一程序，由用户通过文本框输入圆的半径，计算并输出圆的周长和面积。界面如下： 输入代码：双击“计算”按钮进入代码编辑窗口，输入以下代码 Private Sub Command1_Click() //该行系统自动生成 Text2.Text = 2 * 3.14 * V al(Text1.Text) Text3.Text = 3.14 * Val(Text1.Text) ^ 2 End Sub //该行系统自动生成 再双击“退出”按钮进入代码编辑窗口，输入以下代码 Private Sub Command2_Click() End End Sub
设计界面和输入代码，多次输入半径查看计算结果，通过该例子的设计运行进一步熟悉VB开发环境，熟悉VB程序开发步骤。 三实验要求 1上机前认真预习本次上机实验内容。 2 上机输入和调试程序，调试通过后，记录程序清单和运行结果。
实验二程序设计初步 一实验目的 1 进一步掌握运行一个VB语言程序的方法和步骤。 2 分清VB语言的符号、标识符、保留字的区别。 3 掌握VB语言的各种数据类型，会定义以及对它们进行赋值。 4 掌握数据输入函数和数据输出函数的使用方法。 5 了解顺序程序设计。 二实验内容 1设计如下图所示的界面，当点击“显示”按钮时，在窗体上显示一副背景图片，点击“隐藏”按钮时再使其消失。 2设计一个窗体，在其中创建两个标签和两个文本框，标签用于显示提示信息，其标题分别为“密码”和“明码”；两个文本框中一个用于输入密码，输入的密码要以“*”号显示，另一个将输入的密码的真实字符显示出来。 三实验要求 1上机前认真预习本次上机实验内容，思考要编写的程序。 2 上机输入和调试程序，调试通过后，记录程序清单和运行结果。 3 上机结束后，按照上机的具体要求，写出实验报告。