实验二VBScript编程实验报告

vb实验报告二

vb实验报告二实验二顺序结构程序设计学院生物技术与食品科学学院班级生物工程1702 班学号20174198 姓名张思越实验日期批次地点信息交流中心301 机房教师郭淑珍教师评语年月日一、实验目的1．掌握表达式、赋值语句的正确使用与书写规则。

2．掌握常用函数的使用。

3．掌握 InputBox 与 MsgBox 函数（过程）的使用。

4．掌握各种数据类型 5．掌握 VB 程序基本的输入输出方法。

二、实验内容（你做了哪几个题） 1．必做题：实验 2-1a，实验 2-3a 2．选做题：实验 2-1b，实验 2-2a 三、简述其中一题（写清题号）的具体操作步骤：实验 2-1a：1. 在窗体上放置相应控件，文本框用作数据的输入与输出，标签用于提示输入，按钮用来计算结果。

2. 在属性窗口进行相关属性设置，将用作输出的文本设为只读，且将背景色设为灰色。

3. 在代码窗口写出相关的代码。

4. 保存文件和。

运行并调试程序。

计算机技术基础（VB ）实验报告——实验二四、思考并回答 1．实验 2-3a 中赋值语句 X=Y：Y=X 能否实现变量 X、Y 的交换？为什么？能实现，答：不能实现。

除已知的 X 和 Y 两个变量外，还需要再定义第三个变量 Z，通过语句“Z=X”，将变量 X 的值赋给变量 Z，然后，通过语句“X=Y”，将变量 Y 的值赋值给变量 X，再通过语句“Y=Z”，将存放在变量 Z 中的值赋给变量 Y。

到此，变量 X 和变量Y 的值交换完成。

2．结合实验 2-1a 和实验 2-1b 二个题，说说各种输入、输出的方式有什么优缺点，你更喜欢用哪种？答：2-1a 用 text 控件直接输入数字，2-1b 用inputbox 函数输入数据我更喜欢第一种，比较直接。

3．请写出实验 2-2a 中命令按钮的代码。

思考：数值数据用若不用“+”号连接到 Label 的Caption 属性，还可以用什么运算符？答：And。

五、简述本次实验存在的问题实验涉及多种编程方法，不能熟悉的运用或更换。

实验二VBScript编程实验报告

华北科技学院管理学院实验报告册
实验报告
实验时间： 2014 年 3 月 27 日 7-8 节
将代码保存到新建的虚拟目录下D://asp.temp，在浏览器中输入http://localhost/temp/
4、S=1^2+3^2+......+99^2，请利用两种循环语句编写程序，计算S的值利用for循环语句：
利用do while 语句编写程序如下图：
实验报告说明
1、要求每一实验项目书写一份实验报告，并按实验课程归类汇总;
2、实验报告要遵照实验指导书和任课教师的具体要求逐项填写;
3、实验报告正文要求字迹清晰、工整，用中性笔或圆珠笔书写;
4、实验报告封面不得有空缺项；实验项目序号指实验项目编号，如：实验一;
5、实验运行环境之具体实验室和运行软件;
6、实验内容和步骤如书写不够，可加页。

vb实验报告二

实验步骤（关键代码要写出）
总结（对上机实验结果进行分析，上机心得体会及改进意见
忻州师范学院计算机系
实验报告
学号：姓名：班级
课程名称
Visual Bisic 程序设计
实验课时
2课时
ห้องสมุดไป่ตู้实验项目
VB程序设计步骤
实验时间
指导老师
史文秀
实验成绩
实验目的（本次上机实验所涉及并要求掌握的知识点）
1、掌握Visual Bisic程序设计步骤
2、掌握窗体的常用成员
3、掌握命令按钮的使用
4、掌握标签的使用方法
5、掌握文本框的使用方法
6、进一步了解类、对象、属性、事件和方法的概念
实验环境
Visual
实验内容
1、设计一个VB小程序，包括一个文本框和三个单选按钮。要求单击“显示”按钮时，文本框中出现红色的“欢迎使用Visual Bisic!”的文字；单击“清除”按钮时，文本框中文字消失；单击“退出”按钮后，程序结束。（窗体标题为“练习”）
2、设计一个“我的窗体”为标题的小程序。利用窗体的属性和方法，在单击窗体时，显示“Visual Bisic”文字。
3、窗体中包括一个标签、一个文本框和一个单选按钮。在文本框中输入文字，单击“设置”按钮，则将窗体标题为相应的文字。
4、窗体中包括一个文本框和一个单选按钮。程序运行时，单击“显示”命令按钮，则将文本框按钮显示为黄色，并显示蓝色文字“hello”。

实验二VBScript编程实验报告

实验成绩实验评阅教师签名简要评语实验报告册实验报告实验课程名称：实验项目序号：实验二实验项目名称： VBScript 编程实验室名称： ERP 实验室开课学期： 2012 ——2013 学年第 2 学期授课教师：实验指导教师：专业：班级：姓名：学号：实验报告实验时间：2013 年 X 月 13 日X 节一、实验运行环境Windows 7计算机系统；安装IIS、Dreamweaver CS5、Access 2000数据库系统等。

二、实验目的熟悉VBScript的语法、掌握服务器端利用VBScript编程的基本方法三、实验要求掌握VBScript语言的语法特点和内置的常用函数的用法；对程序的结构（顺序、分支、循环、过程）的概念和语法比较清晰；具备基本的编写程序的能力。

四、实验内容和步骤1、打印菱形图案<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>打出菱形</title><SCRIPT language="VBScript"></SCRIPT></head><body><form name="frmEercisel"><input type="Button" value="打印菱形" onclick="Rhombus"></form></body></html>2.输入http://localhost/lingxing.asp,网页如图所示：3、递归调用求n的阶乘<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>递归计算阶乘</title><SCRIPT language="VBScript"></SCRIPT></head><body><form name="frmExercise2">输入一个整数：<INPUT type="text" name="InputText">&nbsp<input type="button" value="计算阶乘"onclick="Showresult frmExercise2.InputText.Value"></form></body></html>4、输入http://localhost/qiuhe.asp，如网页所示：5、随机字符串<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>2-3</title></head><body><%'生成随机字符串所想Function randKey(obj)Dim char_array(80)Dim tempFor i = 10 To 35char_array(i) = Chr(i + 55)NextFor i = 36 To 61char_array(i) = Chr(i + 61)NextRandomizeFor i = 1 To obj'rnd函数返回的随机数在0~1之间，可等于0，但不等于1'公式：int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数，可等于下限但不可等于上限temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0)NextrandKey = tempEnd FunctionResponse.Write(randKey(6))%></body></html>6、输入http://localhost/2-3.asp,如图所示七、制作ASP日历%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>制作ASP日历</title></head><body><%Function CountDays(iMonth,iYear)Select Case iMonthcase 1,3,5,7,8,10,12CountDays=31case 2if IsDate("2/29/" & iYear) ThenCountDays=29elseCountDays=28end ifcase 4,6,9,11CountDays=30End SelectEnd FunctionFunction FirstDay(iMonth,iYear)FirstDay=WeekDay(iMonth & "/1/" & iYear)End Functiondim mMonth,mYearmMonth=Month(Date())mYear=Year(Date())mDate=Day(Date())%><div align="center" style="background-color:#CC9933; color:#FFFFFF"><strong><%=mYear%> 年<%=mMonth%> 月</strong></div><hr size="1" color="#00CC00" noshade="noshade"><table width="90%" border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#F1F1F1"><tr bgcolor="#EBEBEB"><td align=right>星期日</td><td align=right>星期一</td><td align=right>星期二</td><td align=right>星期三</td><td align=right>星期四</td><td align=right>星期五</td><td align=right>星期六</td></tr><tr bgcolor="#FFFFFF"><%j=1for i=1 to 42if i>=FirstDay(mMonth,mYear) and j<=CountDays(mMonth,mYear) thenif mDate=j thenresponse.write "<td align=right bgcolor='#CC9933'><strong><font color=RED> " & j & " </font></strong>"elseresponse.write "<td align=right bgcolor='#FFFFFF'>"&jend ifj=j+1elseresponse.write "<td align=right bgcolor='#FFFFFF'>"&"   "end ifresponse.write "</td>"if i mod 7=0 thenresponse.write "</tr><tr>"end ifnext%></tr></table></body></html>八、输入http://localhost/2-4.asp，如图显示九、编写程序显示系统当前日期。

VB实验二实验报告

实验报告二实验目的（1）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（2）掌握循环嵌套结构（3）掌握素数算法（4）掌握控制结构相关控件（列表框、组合框等）（5）能综合运用循环控制结构解决较复杂的问题实验内容【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。

实验结果：【实验1 代码】【实验1 典型结果】【实验2】将200~300之间的素数输出到列表框中实验结果：【实验2 代码】【实验2 典型结果】【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。

实验结果：【实验3 代码】【实验3 典型结果】【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：【实验4 代码】【实验4 典型结果】【实验5】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。

2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦实验结果：【实验5 代码】【实验5 典型结果】【实验6】编写程序，将随机产生的1000个[1000,99999]范围内的随机整数存入数组，然后分别用“比较交换法”、“选择法”、“冒泡法”进行升序排序实验结果：【实验6 代码】【实验6 典型结果】【选做1】编写程序，输入X，要求计算精度10-6，求sinX ，计算公式如下所示实验结果：【选做1代码】)!1n2(x)1(...!7x!5x!3x1x(x)sin1n21n753--++-+-=--【选做1典型结果】【选做2】任意输入一个或者多个英文句子，统计这些句子中的单词数量实验结果：【选做2代码】【选做2典型结果】【选做3】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。

VB实验报告

实验一：常用标准控件（一）实验1.1 标签的使用(一)实验1.3 文本框的使用T2.text=t1.text实验1.4 命令按钮的使用(一)c1.width=c1.width+100实验1.5 命令按钮的使用(二)实验1.7 命令按钮与文本框的使用(一)Text2.Text= Text1.Text实验1.8 命令按钮与文本框的使用(二)Text1.Left=0实验1.9 命令按钮与文本框的使用(三)Text1.FontBold = TrueText1.Font.Italic = True实验二：常用标准控件（二）实验2.1 选项按钮的使用Private Sub Option1_Click()Text1.Alignment = 0End SubPrivate Sub Option2_Click()Text1.Alignment = 2End SubPrivate Sub Option3_Click()Text1.Alignment = 1End SubPrivate Sub Option4_Click()Text1.FontName = “宋体”End SubPrivate Sub Option5_Click()Text1.FontName = “黑体”End Sub实验2.3 图像的使用Private Sub Cmd1_Click()Image1.Picture = LoadPicture(“c:\vb\sy02\图片1.jpg”) End SubPrivate Sub Cmd2_Click()Image1.Picture = LoadPicture()End Sub实验2.4 图片框和滚动条的使用Private Sub Command1_Click()VScroll1.Min = 100VScroll1.Max = 2400rgeChange = 200VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Scroll()Picture1.Height=Vscroll1.ValueEnd Sub实验2.5 滚动条的使用Private Sub Form_Activate()Hscroll1.setfocusEnd SubPrivate Sub HScroll1_Change()Text1.Text=Hscroll1.ValueEnd SubShape1.Shape=L1.TextEnd Sub实验2.7 图形的使用(二)Shape1.Shape=3End SubPrivate Sub Command2_Click()Shape1.BorderColor = Shape1.Bordercolor=&HFF&End SubLabel1.Caption=NowEnd Sub实验三：选择结构实验3.1 汽车移动Private Sub Command1_Click()’Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()'Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture("C:\VB\Sy03\CARS.ICO") End SubPrivate Sub Timer1_Timer()Picture1.Left = Picture1.Left + 100If Picture1.Left + Picture1.Width >= Form1.Width Then Picture1.Left = 0End IfEnd Sub实验3.2 爱好选择Dim s As StringPrivate Sub Check1_Click()If Check1.Value = 1 ThenFrame1.Enabled = TrueElseFrame1.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenFrame2.Enabled = TrueElseFrame2.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()If Check1.Value = 1 ThenIf Option1.Value = True Thens = "古典音乐"Elses = "流行音乐"End IfEnd IfIf Check2.Value = 1 ThenIf Option3.Value = True Thens = s & "篮球"Elses = s & "羽毛球"End IfEnd IfLabel2.Caption = sEnd SubPrivate Sub Form_Load()Check1.Value = 1Check2.Value = 1End Sub实验3.3 圆的运动Dim d As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()d = 1End SubPrivate Sub Timer1_Timer()If Option1 ThenShape2.Top = Shape2.Top + d * 50If Shape2.Top <= Shape1.Top Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Thend = -dEnd IfElseIf Option2 ThenShape2.Left = Shape2.Left + d * 50If Shape2.Left <= Shape1.Left Or Shape2.Left + Shape2.Width >= Shape1.Left + Shape1.WidthThend = -dEnd IfEnd IfEnd Sub实验3.4 交通工具和目的地选择Private Sub Form_Click()'学生编写If Op1.Value = True ThenIf Op3.Value ThenLab1.Caption = "坐飞机去广州"ElseIf Op4.Value ThenLab1.Caption = "坐飞机去昆明"End IfElseIf Op3.Value ThenLab1.Caption = "坐火车去广州"ElseIf Op4.Value ThenLab1.Caption = "坐火车去昆明"End IfEnd IfEnd Sub实验3.5 交换与连接Private Sub Form_Click()'学生编写If Op1.Value Thent = Text1.TextText1.Text = Text2.TextText2.Text = tLab1.Caption = "交换成功"ElseLab1.Caption = Text1.Text + Text2.TextEnd IfEnd Sub实验3.6 大小写转换Dim n As IntegerPrivate Sub Text1_Change()Dim ch As Stringch = Right$(Text1.Text, 1)If ch >= "A" And ch <= "Z" ThenLabel1.Caption = LCase(ch)n = n + 1ElseIf ch >= "a" And ch <= "z" ThenLabel1.Caption = UCase(ch)n = n + 1ElseLabel1.Caption = chEnd IfLabel2.Caption = nEnd Sub实验四：循环结构实验4.1 分解单词Private Sub Command1_Click()Dim S1 As String, S2 As StringDim I1 As IntegerS1 = Text1.TextI1 = 1DoDo While Mid(S1, I1, 1) <> “” And I1 <= Len(S1) S2 = S2 & Mid(S1, I1, 1)I1 = I1 + 1LoopList1.AddItem S2S2 = “”I1 = I1 + 1Loop While I1 <= Len(S1)End Sub实验4.2 列表框内容移动Private Sub C1_Click()Dim k As Integerk = 0While (k < List2.ListCount)If List2.Selected(k) = True ThenList1.AddItem List2.TextList2.RemoveItem kEnd Ifk = k + 1WendEnd SubPrivate Sub C2_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd Sub实验4.3 图案输出Private Sub Form_Click()For i = 1 To 5For j = 1 To 6 - iPrint " ";Next jFor j = 1 To 2 * i - 1Print "*";Next jPrintNext iFor i = 1 To 4For j = 1 To i + 1Print " ";Next jFor j = 1 To 2 * (5 - i) - 1Print "*";Next jPrintNext iEnd Sub实验4.4 因子个数Private Sub Command1_Click()Dim m As Integer, s As IntegerClsm = InputBox("请输入一个整数")s = 0For k = 1 To Abs(m) / 2If m Mod k = 0 Thens = s + 1Print kEnd IfNext kPrint "因子数="; SEnd Sub实验4.5 城市选择Private Sub Command1_Click()Dim k As IntegerFor k = List1.ListCount - 1 To 0 Step -1If List1.Selected(k) = True ThenList2.AddItem List1.List(k)List1.RemoveItem kEnd IfNext kEnd SubPrivate Sub Command2_Click()Dim k As IntegerText1 = "已经选中的城市有："For k = 0 To List2.ListCount - 1 Step 1Text1 = Text1 & " " & List2.List(k)Next kEnd Sub实验4.6 产生数列Private Sub Command1_Click()Text4 = ""a = Val(Text1)b = Val(Text2)n = Val(Text3)Text4 = Text4 & a & " " & bk = 2Do While k < nc = a * bk = k + 1If c < 10 ThenText4 = Text4 & " " & ca = bb = cElsed = c \ 10Text4 = Text4 & " " & da = dk = k + 1If k <= n Thend = c Mod 10Text4 = Text4 & " " & db = dEnd IfEnd IfLoopEnd Sub实验4.7 添加或删除列表框中内容Private Sub Command1_Click()Text1.Text = InputBox("请输入要添加的项目")List1.AddItem Text1.TextEnd SubPrivate Sub Command2_Click()Text1.Text = InputBox("请输入要删除的项目")For i = 0 To List1.ListCount - 1If List1.List(i) = Text1.Text ThenList1.RemoveItem iEnd IfNext iEnd Sub实验五：数组与字符串实验5.1 查找Option Base 1Dim a(10)Private Sub Command1_Click()Text1.Text = "": Text2.Text = ""For i = 1 To 10a(i) = Fix(Rnd * 90 + 10)For j = 1 To i - 1If a(i) = a(j) Theni = i - 1Exit ForEnd IfNext jNext iFor i = 1 To 10Text1.Text = Text1.Text + Str(a(i)) + Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim num As Integer, i As Integernum = InputBox("请输入待查找的数")For i = 1 To 10If a(i) = num ThenText2.Text=Str(num)+"是数组中的第"+Str(i)+"个值"Exit ForEnd IfNext iIf i > 10 ThenText2.Text = Str(num) + "不存在于数组中"End IfEnd Sub实验5.2 选手得分Private Sub Command1_Click()Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0).Text)s = ab = aFor k=1 to 5s = s + Val(Text1(k).Text)If a < Val(Text1(k).Text) Thena = Val(Text1(k).Text)End IfIf b > Val(Text1(k).Text) Thenb = Val(Text1(k).Text)End IfNext ks = (s - a - b) / 4s = s * 3 * Val(Text2.Text)Text3.Text = Int(s * 100) / 100End Sub实验5.3 统计Option Base 1Dim a(20) As Integer, b(20) As IntegerPrivate Sub Cmd1_Click()Text1.Text = "": Text2.Text = "": Text3.Text = ""For i = 1 To 20a(i) = Fix(Rnd * 9 + 1)b(i) = 1Text1.Text = Text1.Text + Str(a(i)) + Space(2)Next iEnd SubPrivate Sub Cmd2_Click()fmax = 0For i = 1 To 20For j = i + 1 To 20If a(i) = a(j) Thenb(i) = b(i) + 1End IfNext jIf b(i) > fmax Then fmax = b(i)Next iFor i = 1 To 20If b(i) = fmax ThenText2.Text = Text2.Text + Str(a(i)) + Space(2) End IfNext iText3.Text = fmaxEnd SubPrivate Sub Cmd3_Click()EndEnd Sub实验5.4 循环显示Dim arrPrivate Sub Form_Load()arr = Array("第一项", "第二项", "第三项", "第四项") Label1.Caption = arr(0)Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Static i As IntegerLabel1.Caption = arr(i)If i = 3 Theni = 0Elsei = i + 1End IfEnd Sub实验5.5 最大值Private Sub Command1_Click()Dim arrN(30) As IntegerDim Max As IntegerRandomizeFor i = 1 To 30arrN(i) = Int(Rnd * 999) + 1Next iMax = arrN(1)For i = 2 To 30If arrN(i) > Max ThenMax = arrN(i)End IfNext iPrint MaxEnd Sub实验5.6 素数Option ExplicitOption Base 1Private Sub Command1_Click()Dim a() As Integer, n As Integer, i As IntegerDim flag As Boolean, k As Integerk = 0For n = 2 To 100flag = TrueFor i = 2 To n - 1If n Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Thenk = k + 1ReDim Preserve a(k)a(k) = nEnd IfNext nFor i = 1 To UBound(a)Print Right(Space(3) & a(i), 4);If i Mod 5 = 0 Then PrintNext iEnd Sub实验5.7 加密Private Sub Command1_Click()Dim n As Integer, k As Integer, m As IntegerDim c As String, a As StringFor k = 0 To 2If Op1(k).Value Thenn = Val(Op1(k).Caption)End IfNext km = Len(Text1.Text)a = ""For k = 1 To mc = Mid$(Text1.Text, k, 1)c = String(1, Asc(c) + n)If c > "z" Or c > "Z" And c < "a" Thenc = String(1, Asc(c) - 26)End Ifa = a + cNext kText2.Text = aEnd Sub1.6 子程序过程与函数过程实验6.1 求和2.程序代码Private Sub Command1_Click()Dim i As IntegerFor i = 0 To 1If Option1.Item(i) = True ThenCall calc(i)Label2.Caption = Option1(i).CaptionEnd IfNextEnd SubPrivate Sub calc(c As Integer)Dim i As Integerresult = 0x = Val(Text1.Text)If c = 0 ThenFor i = 1 To xIf i Mod 2 = 1 Thenresult = result + iEnd IfNextElseFor i = 1 To xIf i Mod 2 = 0 Thenresult = result + iEnd IfNextEnd IfLabel3.Caption = resultEnd Sub实验6.2 最大值2.程序代码Option Base 1Private Function FindMax(a() As Integer)Dim Start As IntegerDim Finish As Integer, i As IntegerStart = LBound(a)Finish = UBound(a)Max = a(Start)For i = Start To FinishIf a(i) > Max Then Max = a(i)Next iFindMax = MaxEnd FunctionPrivate Sub Command1_Click()Dim arr1Dim arr2(4) As Integerarr1 = Array(Val(Text1), Val(Text2), Val(Text3), Val(Text4)) For i = 1 To 4arr2(i) = CInt(arr1(i))Next iM = FindMax(arr2())Print "最大值是: "; MEnd Sub实验6.3 哥德巴赫猜想2.程序代码Private Function IsPrime(ByVal x As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(x)If x Mod i = 0 ThenIsPrime = FalseExit FunctionEnd IfNextIsPrime = TrueEnd FunctionPrivate Sub Command1_Click()'学生编写程序开始'======================================x = Val(Text1.Text)If x < 4 Or x Mod 2 <> 0 ThenText1.Text = "输入有误"ElseFor i = 2 To xIf IsPrime(i) And IsPrime(x - i) ThenLabel1.Caption = iLabel2.Caption = x - iExit ForEnd IfNext iEnd If'========================================='学生编写程序结束Open App.Path & "\out3.dat" For Output As #1Print #1, Text1.Text, Label1.Caption, Label2.CaptionClose #1End Sub实验6.4 阶乘和2.程序代码Private Sub Command1_Click()Dim m As Integer, n As IntegerDim s As Long, i As Integerm = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = m To nt = f(i)s = s + tNextlblResult.Caption = sEnd SubPrivate Function f(ByRef x As Integer) As LongDim t As Longt = 1For i = 1 To xt = t * iNextf = tEnd Function实验6.5 选择图形2.程序代码Private Sub C1_Click()Dim k As IntegerFor k = 0 To 2If Op1(k).Value = True ThenCall draw(k)End IfNext kEnd SubSub draw(a As Integer)P1.Print "选择了" & Op1(a).CaptionEnd Sub实验6.6 对象参数2.程序代码Private Sub Form_Load()Label1.Caption = "AABB"Label2.Caption = 10End SubPrivate Sub Command1_Click()Dim a As Integera = Val(Label2.Caption)Call fun1(Label1, a)Label2.Caption = aCall fun2(Form1)End SubPrivate Sub fun1(L As Label, b As Integer) L.Caption = "ABCD"b = b * bEnd SubPrivate Sub fun2(F As Form)F.Caption = "程序"End Sub1.7 简单应用实验7.1 图形控件2.程序代码Dim left0 As IntegerConst blue_color = &HFF0000, red_color = &HFF&Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()left0 = Shape1.LeftEnd SubPrivate Sub Timer1_Timer()If Shape1.FillColor = blue_color ThenIf Shape1.Left > 0 ThenShape1.Height = Shape1.Height + 100Shape1.Width = Shape1.Width + 100Shape1.Left = Shape1.Left - 50Shape1.Top = Shape1.Top - 50ElseShape1.FillColor = red_colorEnd IfEnd IfIf Shape1.FillColor = red_color ThenIf Shape1.Left < left0 ThenShape1.Height = Shape1.Height - 100Shape1.Width = Shape1.Width - 100Shape1.Left = Shape1.Left + 50Shape1.Top = Shape1.Top + 50ElseShape1.FillColor = blue_colorEnd IfEnd IfEnd Sub实验7.2 Line控件2.完善程序代码Private Sub Command1_Click()Line4.Visible = TrueEnd SubPrivate Sub Command2_Click()Line4.Visible = FalseEnd Sub实验7.3 计数2.程序代码Private Sub C1_Click(Index As Integer)Select Case IndexCase 1Timer1.Enabled = FalseCase 0Timer1.Enabled = TrueEnd SelectEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub实验7.4 通话费用2.程序代码Private Sub Cmd1_Click()Text1(0).Text = Str(Time())Text1(1).Text = "": Text1(2).Text = ""Cmd1.Enabled = FalseCmd2.Enabled = TrueEnd SubPrivate Sub Cmd2_Click()Text1(1).Text = Str(Time())t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text) t_end = Hour(Text1(1).Text) * 3600 + Minute(Text1(1).Text) * 60 + Second(Text1(1).Text) t = t_end - t_startm = t \ 60If m < t / 60 Then m = m + 1s = 0.5If m - 3 > 0 Thens = s + (m - 3) * 0.15End IfText1(2).Text = Str(s) + "元"Cmd1.Enabled = TrueCmd2.Enabled = FalseEnd Sub实验7.5 图标运动2.程序代码Dim a, t, dPrivate Sub Command1_Click()Timer1.Enabled = Trued = Image1.TopEnd SubPrivate Sub Command2_Click()Open App.Path & "\out7.txt" For Output As #1Print #1, Label1, Label2Close #1End SubPrivate Sub Form_Load()a = 1t = 0End SubPrivate Sub Timer1_Timer()Image1.Top = Image1.Top - a * 50If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then Timer1.Enabled = Falsed = d - Image1.TopLabel1 = dLabel2 = t * Timer1.Interval / 1000End Ifa = a + 0.1t = t + 1End Sub实验7.6 圆的移动2.程序代码Private Sub Form_load()HScroll1.Min = Shape2.LeftHScroll1.Max = Shape2.Width + Shape2.Left - Shape1.WidthVScroll1.Min = Shape2.TopVScroll1.Max = Shape2.Height + Shape2.Top - Shape1.HeightHScroll1.Value = 1000VScroll1.Value = 1000End SubPrivate Sub HScroll1_Change()Shape1.Left = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.Top = VScroll1.ValueEnd Sub实验7.7 处理数据2.程序代码Private Sub Command1_Click()Dim y As IntegerFor i = 0 To 2If Option1(i).Value = True Theny = Val(Option1(i).Caption)End IfNextCall calc(y)End SubPrivate Sub calc(y As Integer)List1.Cleari = 1x = Val(Text1.Text) + 1Do While i <= 5If x Mod y = 0 ThenList1.AddItem x i = i + 1End Ifx = x + 1LoopEnd Sub1.8 菜单、键盘与鼠标事件实验8.1 下拉式菜单2.完善程序代码Private Sub Dis_Click()Text1.Text = "等级考试"End SubPrivate Sub Exit_Click()EndEnd Sub实验8.2 求和或求阶乘2.程序代码Dim n As IntegerPrivate Sub Command1_Click()'需学生编写的程序Dim s As Long, i As IntegerIf Option1 Thens = 1For i = 1 To ns = s * iNext iElses = 0For i = 1 To ns = s + iNext iEnd IfText1.Text = CStr(s)End SubPrivate Sub Command2_Click()Open App.Path + "\out2.dat" For Output As #1Print #1, n, Option1.Value, Option2.Value, Text1Close #1End SubPrivate Sub m10_Click()n = 10End SubPrivate Sub m2000_Click()n = 2000End SubPrivate Sub m12_Click()n = 12End SubPrivate Sub m1000_Click()n = 1000End SubPrivate Sub Option1_Click()n = 0m1000.Enabled = Falsem2000.Enabled = Falsem10.Enabled = Truem12.Enabled = TrueEnd SubPrivate Sub Option2_Click()n = 0m10.Enabled = Falsem12.Enabled = Falsem1000.Enabled = Truem2000.Enabled = TrueEnd Sub实验8.3 弹出式菜单2.完善程序代码Private Sub Form_Load()Text1.Text = "计算机等级考试"End SubPrivate Sub M1_Click()Text1.FontBold = TrueEnd SubPrivate Sub M2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub M3_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu FormatEnd Sub实验8.4 组合框的使用2.程序代码Private Sub C1_Click()Dim flag As BooleanFor i = 0 To Cb1.ListCount - 1If Cb1.List(i) = Cb1.Text Thenflag = TrueExit ForElseflag = FalseEnd IfNextIf flag ThenMsgBox "已有此项"Cb1.Text = ""ElseCb1.AddItem Cb1.TextEnd IfEnd Sub实验8.5 键盘事件2.程序代码Private Sub Command1_Click()Combo1.AddItem Text1.TextText1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii > 57 Or KeyAscii < 48 ThenMsgBox "请输入数字！"KeyAscii = 0End IfEnd Sub实验8.6 鼠标事件2.程序代码Const y0& = 1110, x0& = 1100, radius& = 750Private Function oncircle(X As Single, Y As Single) As Booleanprecision = 55000If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then oncircle = TrueElseoncircle = FalseEnd IfEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Const LEFT_BUTTON = 1If oncircle(X, Y) ThenLine1.X1 = x0Line1.Y1 = y0If Button = LEFT_BUTTON ThenLine1.X2 = XLine1.Y2 = YElseLine1.X2 = Line1.X1Line1.Y2 = y0 - radiusEnd IfLabel1.Caption = ""ElseLabel1.Caption = "鼠标位置不对"End IfEnd Sub实验8.7 多窗体程序设计2.程序代码(1)Form1窗体中的程序代码Private Sub C1_Click()Dim k As IntegerForm2.ShowForm2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3 Form2.Print Form1.Frame1.Caption; "："; For k = 0 To 1If Form1.Op1(k).Value ThenForm2.Print Form1.Op1(k).Caption End IfNext kEnd SubPrivate Sub Form_Load()Text2.PasswordChar = "*"End Sub(2)Form2窗体中的程序代码Private Sub C1_Click()EndEnd SubPrivate Sub C2_Click()Unload Form2End Sub1.9 通用对话框与文件实验9.1 通用对话框2．程序代码Private Sub Command1_Click()Dim n As LongCD1.FileName = ""CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"CD1.FilterIndex = 2CD1.ShowOpenIf CD1.FileName <> "" ThenOpen CD1.FileName For Input As #1n = LOF(1)Text1 = Input$(n, #1)Close #1End IfEnd Sub实验9.2 文件控件2.完善程序代码Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd Sub实验9.3 小写转换为大写2.程序代码Private Sub C1_Click()Dim a As StringCD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文件|*.doc"CD1.FilterIndex = 2CD1.Action = 1Open CD1.FileName For Input As #1Input #1, aClose #1Text1.Text = aEnd SubPrivate Sub C2_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click()CD1.FileName = "out3.txt"CD1.Action = 2Open CD1.FileName For Output As #1Print #1, Text1.TextClose #1End Sub实验9.4 删除数据2.程序代码Dim a(100) As Integer, num As Integer, n As IntegerPrivate Sub Command1_Click()Dim k As Integern = 60Open App.Path & "\in4.txt" For Input As #1For k = 1 To nInput #1, a(k)Text1 = Text1 + Str(a(k)) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num = InputBox("请输入一个数")End SubPrivate Sub Command3_Click()For i = 1 To nIf num = a(i) Then Exit ForNext iIf i > n ThenMsgBox "该数不存在于数组中，不能执行删除操作！"Elsen = n - 1For j = i To na(j) = a(j + 1)NextEnd IfText1 = ""'以下程序段将执行删除操作后的数组a重新显示在Text1中For k = 1 To nText1 = Text1 + Str(a(k)) + Space(2)Next kEnd Sub实验9.5 统计2.程序代码Option Base 1Dim x As String, max_n As IntegerPrivate Sub Command1_Click()Open App.Path & "\in5.txt" For Input As #1s = Input(LOF(1), #1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim a(26) As Integersl = Text1.SelLengthst = Text1.SelTextText2 = ""If sl = 0 ThenMsgBox "请先选择文本"ElseFor i = 1 To slc = Mid(st, i, 1)If c <> " " Thenn = Asc(UCase(c)) - Asc("A") + 1a(n) = a(n) + 1End IfNext imax_n = a(1): n = 1For j = 2 To 26If max_n < a(j) Thenmax_n = a(j)End IfNext j'注意可能有多个出现次数最多的字母For i = 1 To 26If max_n = a(i) ThenText2.Text = Text2.Text + " " + Chr(Asc("A") + i - 1) End IfNext iEnd IfEnd Sub实验9.6 完全平方数2.程序代码Dim a(100) As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & "\in6.txt" For Input As #1For k = 1 To 100Input #1, a(k)Next kClose #1End SubPrivate Sub Command2_Click()'学生编写Dim i As Integer, avg As Single, N As IntegerFor i = 1 To 100If a(i) = (Int(Sqr(a(i)))) ^ 2 Thenavg = avg + a(i)N = N + 1End IfNext iavg = Int(avg / N)Text1.Text = CStr(avg)End SubPrivate Sub Form_Unload(Cancel As Integer)Open App.Path & "\out6.txt" For Output As #1 Print #1, Text1.TextClose #1End Sub1.10 综合应用实验10.1 大小写转换2.程序代码Private Sub Command1_Click()Dim s As StringCommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt"CommonDialog1.FilterIndex = 2On Error GoTo openerrCommonDialog1.InitDir = App.PathCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1Input #1, sClose #1Text1.Text = sopenerr:End SubPrivate Sub Command2_Click()'考生需要编写的程序x = Text1.Texty = Len(x)For i = 1 To yz = Mid(x, i, 1)Select Case zCase "E"Mid(x, i, 1) = "e"Case "N"Mid(x, i, 1) = "n"Case "T"Mid(x, i, 1) = "t"Case "e"Mid(x, i, 1) = "E"Case "n"Mid(x, i, 1) = "N"Case "t"Mid(x, i, 1) = "T"End SelectNext iText1.Text = xEnd SubPrivate Sub Command3_Click()CommonDialog1.Filter = "文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex = 1On Error GoTo openerrCommonDialog1.FileName = "out1.txt"CommonDialog1.InitDir = App.PathCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text1Close #1openerr:End Sub实验10.2 矩阵与文件2.程序代码Option Base 1Private Sub Form_Click()Const N = 5Const M = 5Dim mat(M, N)Dim i, j, tOpen App.Path & "\" & "in2.txt" For Input As #1For i = 1 To NFor j = 1 To MInput #1, mat(i, j)Next jNext iClose #1PrintPrint "初始矩阵为："PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); mat(i, j);Next jPrintNext iPrintFor j = 1 To Mt = mat(1, j)mat(1, j) = mat(3, j)mat(3, j) = tNext jPrintPrint "交换第一行和第三行后的矩阵为："PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); mat(i, j);Next jPrintNext iEnd Sub实验10.3 菜单与文件2.程序代码Option Base 1Dim Arr(100) As Integer,s As IntegerSub ReadData()Open App.Path & "\" & "in3.txt" For Input As #1For i = 1 To 100Input #1, Arr(i)Next iClose #1End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & "\" & Filename For Output As #1Print #1, NumClose #1End SubPrivate Sub Calc_Click()Dim i As IntegerFor i = 1 To 100If Arr(i) < 50 Thens = s + Arr(i)Text1.Text = Text1.Text + CStr(Arr(i)) + " "End IfNext iPrint sEnd SubPrivate Sub read_Click()ReadDataEnd SubPrivate Sub save_Click()WriteData "out3.txt", sEnd Sub实验10.4 排序2.程序代码Private Sub Command1_Click()RandomizeFor k = 0 To 9Text1(k) = CInt(Rnd() * 899 + 100)NextEnd SubPrivate Sub Command2_Click()'================================================'算法：'1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数；'2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是' 偶数，则把此偶数放到第j个位置，j向前移1个位置；'3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是' 奇数，则把此奇数放到第i个位置，i向后移1个位置；'4）重复2）、3），直到i=j'5）把开始暂存的数放到i的位置'=================================================Dim i%, j%, temp%, flag As Booleani = 0j = 9temp = Text1(j)flag = TrueWhile (i < j)If flag ThenIf Text1(i) Mod 2 = 0 ThenText1(j) = Text1(i)j = j - 1flag = Not flagElsei = i + 1End IfElseIf Text1(j) Mod 2 = 1 ThenText1(i) = Text1(j)i = i + 1flag = Not flagElsej = j - 1End IfEnd IfWendText1(i) = tempEnd Sub实验10.5 插入数据2.程序代码Dim a(100) As Integer, num As IntegerPrivate Sub Command1_Click()Dim k As IntegerOpen App.Path & "\in5.txt" For Input As #1For k = 1 To 60Input #1, a(k)Text1 = Text1 + Str(a(k)) + Space(2)Next kClose #1End SubPrivate Sub Command2_Click()num = InputBox("请输入一个数")End SubPrivate Sub Command3_Click()For i = 1 To 60If num < a(i) Then Exit ForNext iFor j = 60 To i Step -1a(j + 1) = a(j)Next ja(i) = numText1 = ""'以下程序段将插入后的数组A重新显示在Text1中For k = 1 To 61Text1 = Text1 + Str(a(k)) + Space(2)Next kEnd Sub实验10.6 图形2.程序代码Dim a(5, 10) As IntegerDim s(5)Private Sub Command1_Click()Open App.Path & "\in6.txt" For Input As #1For i = 1 To 5For j = 1 To 10Input #1, a(i, j)Next jNext iClose #1End SubPrivate Sub Command2_Click()For i = 1 To 5s(i) = 0For j = 1 To 10s(i) = s(i) + a(i, j)Next js(i) = CInt(s(i) / 10)Text1(i - 1) = s(i)Next iEnd SubPrivate Sub Command3_Click()For k = 1 To 5Shape1(k - 1).Height = s(k) * 20m = Line2.Y1Shape1(k - 1).Top = m - Shape1(k - 1).HeightShape1(k - 1).Visible = TrueNext kEnd Sub。

第二版vb实验报告

实验四选择结构程序设计
一、实验目的
1．掌握逻辑表达式的正确使用方法。

2．掌握单分支、双分支和多分支条件语句结构的使用方法。

3. 掌握选择结构的嵌套
二、实验内容
1 有函数：
⎪⎩⎪⎨⎧≥-<≤-<=)
10(124)101(2
3)1(x x x x x x
y 写一个程序，输入x 值后，则输出相应y 值。

要求用“If …ElseIf …EndIf ”和用“Select Case ”两种方法完成该题目。

1.IF 的写法
2.select 的写法
2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。

3 编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图3-2所示。

图3-2 实验3-3程序运行界面
进一步要求：按照≥90为“优”，≥80为“良”，≥70为“中”，≥60为“及格”，<60为“不及格”来划分并显示上述信息。

4 编写完整的一元二次方程求根的程序
思考题：
1、对于多重选择，使用if嵌套时，注意配对关系
2、使用选择结构时，要注意防止出现“死语句”，即永远也不可能出现的语句。

vb实验报告3

min = List1.List(0)
For i = 1 To List1.ListCount - 1
If min > List1.List(i) Then min = List1.List(i): j = i
Next i
List1.RemoveItem j
End Sub
Private Sub随机产生_Click()
If min > List1.List(i) Then min = List1.List(i): n = i
ave = ave + List1.List(i)
Next i
Form2.Text1 = List1.List(n)
Form2.Text2 = List1.List(m)
Form2.Text3 = Format(ave / List1.ListCount, "0.00")
CommonDialog1.ShowOpen
i = Shell("C:\WINDOWS\NOTEPAD.exe " + CommonDialog1.FileName, vbNormalFocus)
End Sub
2.源代码如下
Private Sub结束_Click()
End
End Sub
Private Sub删除最大值_Click()
Form2.Show
End Sub
3.源代码如下：
Private Sub experimentG2_Click()
Form2.Show
End Sub
Private Sub experimentG3_Click()
Form3.Show
End Sub

vbse实训报告总结

vbse实训报告总结VBSE 实训报告总结随着计算机技术的日益发展，软件行业变得越来越繁荣。

作为一名计算机专业学生，我们的出路似乎只有软件行业了。

而在软件行业中，有一种语言是不可或缺的，那就是 VBSE。

为了更好地掌握 VBSE，我们在学校组织了一个实训。

下面是我对此次实训的总结。

1. VBSE 的基本语法在实训的初始阶段，老师给我们介绍了 VBSE 的基本语法，比如变量声明、数据类型和运算符等。

这些知识对于我来说都是新的，所以我必须花费很多时间去理解这些概念。

在学习 VBSE 的语法时，我发现它和其他的编程语言有很大的不同。

它的语法非常简单，而且易于理解。

与此同时， VBSE 还提供了许多内置的方法和函数，可以大大地简化我们的编码流程。

2. VBSE 常用控件在 VBSE 中，控件是连接代码逻辑和用户界面的桥梁。

因此，在实际开发中，了解常用控件的使用方法非常重要。

我们学习了常见的控件，如文本框、标签、按钮等，还学习了它们的属性和事件。

在实际的练习中，我们通过设计一个简单的窗体程序来理解控件的使用方法。

通过这个练习，我深深地认识到了控件在 VBSE 开发中的重要性。

3. VBSE 的面向对象编程VBSE 除了基本的语法和控件外，还有重要的面向对象编程思想。

我们学习了 VBSE 的封装、继承和多态等概念，并通过实际的例子来掌握这些知识。

在面向对象编程中最重要的部分是类的设计和实现。

我们学习了类的定义方法和成员变量/方法的访问限制，还学习了如何从一个类继承并使用其成员变量和方法。

4. VBSE 的数据操作无论是何种语言，数据操作都是非常重要的。

在 VBSE 中，我们学习了如何连接数据库，并通过 ADO（ActiveX Data Objects）和 SQL 语句来操作数据。

通过数据库的操作，我们还学习了如何使用 VBSE 中的数据绑定控件，例如数据列表，来显示数据库中的数据。

总之， VBSE 实训是一次非常有益的经历。

vb实验报告2

Dim k!
Dim h!
Private Sub Command1_Click()
Dim s!
c = Text1.Text
k = Text2.Text
h = Text3.Text
s = (c * k + c * h + k * h) * 2
Text4.Text = s
End Sub
Private Sub Command2_Click()
实验题目2源程序代码及运行界面：
Private Sub Command1_Click()
Text1.FontBold = True
End Sub
Private Sub Command2_Click()
Text1.FontItalic = True
End Sub
Private Sub Command3_Click()
Caption = "装入窗体"
End Sub
实验报告
实验题目2：分析并设计如下图所示的程序：在窗体上添加一个文本框、5个命令按钮，要求文本框能够输入多行文本，并且要求显示水平与垂直滚动条。单击“加粗”命令按钮时，使文本框里的文本加粗，单击“斜体”按钮时，文本框里的文本变为斜体，单击“40磅”时，文本框里的文本字体大小设置为40，单击“隶书”时，文本框里的文本字体变为隶书。（课内：4分）
Dim l!
r = Text1பைடு நூலகம்Text
l = 2 * pi * r
Text2.Text = l
End Sub
6．编写程序求正方体的体积及表面积，界面如下：
说明：内存变量c代表长方体的长,k代表长方体的宽,h代表长方体的高,s代表长方体的表面积,v代表长方体的体积。

vb实习报告

1、按照实习指导认真阅读本章内容，验证本章所有例题。

按照要求操作并注意设置启动窗体。

2、按照实习指导书给出的如下步骤验证课本中的一段话：“文本框Text 属性的值为字符串，如果输入的是数字字串，并要在程序中进行数值加法运算或数值比较时，最好用Val函数将字符串转化为数值类型”。

第一步：添加一个新窗体并设置成启动窗体，在窗体上添加3个文本框，4个命令按钮，如下图所示。

第二步：在窗体的Load事件中为各控件对象设置属性，文本框Text为空,四个命令按钮标题分别为“相加”、“相乘”、“相减”、“相比较”。

第三步：完成按钮代码，如下图所示。

第四步：运行窗体，若在Text1中输入12，Text2中输入6，分别单击4个按钮，先预测，然后进行验证，结果如下图。

第五步：修改代码，将第三步中Text1和Text2的值先用Val进行类型转换，，分析所得结果并验证。

第六步：如上修改代码，在Text1和Text2两个值中，任意只对一个进行类型转换，分析结果并验证。

3、模仿例3-6，用文本框的KeyDown事件测出“A”、“a”、“End”、“5”(主键盘)、“5”（数字键盘）等键的KeyCode码值。

能否得出这样的结论：“一个键的KeyAscii值与键本身字符有关，如主键盘的5和小键盘的5 KeyAscii 值相同，而KeyCode值与键的位置有关。

”代码个结果如下：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Label1.Caption = "您按的那个键的 KeyCode 值是" & KeyCodeEnd Sub由以上结果可知“一个键的KeyAscii值与键本身字符有关，如主键盘的5和小键盘的5 KeyAscii值相同，而KeyCode值与键的位置有关。

”这句话是错误的。

通过验证不难得出A与a 的keycode是相同的，。

vb实验报告

报告封面
2014-2015学年第一学期
封面和里边的需要写的内容不要空着学号、姓名、学院、年级、专业班等
实验课程: Visual 程序设计设课形式: 非独立
课程学分: 4
实验一
注: 请大家着重做好“智能计算器”, 并在此基础填写实验报告。

实验二
注: 请大家着重做好“简单游戏设计”, 并在此基础填写实验报告。

实验三
注: 请大家着重做好“设计一个拾色器”, 并在此基础填写实验报告。

实验四
注: 请大家着重做好“选课系统”, 并在此基础填写实验报告。

说明：请大家务必将上述4个实验做完, 并认真按要求撰写实验报告, 每位同学按顺序做好4个实验的实验报告交给班长或学习委员, 班长或学习委员按学号从小到大排序后上交。

vbscript计算机实验报告二

实验二:HTML标记的综合应用系别：外语系班级：英语二班学号： 1312012011 姓名：董晶晶实验目的：1、掌握HTML标记的综合应用；2、掌握框架的应用。

实验内容：1、创建如图1所示的框架集。

1）各页面分别保存为program.htm、top.htm、left.htm、right.htm、四个页面（注意页面名称要与位置对应,其中program.htm为主框架页，交作业时将其重命名为2-2.htm）；2）在top.htm中设计一个滚动字幕：“框架与表单的应用”；背景色为深色，文字滚动速度、滚动延迟时间必须设置（大小自行设定），滚动方式为不停的自右向左单向滚动；3）在left.htm中放入图2所示表格，其中“网络原理”和“网页设计与制作”课程的详细说明文件分别为net.htm和web.htm，要为表中的课程名设置相应的超链接，单击后在右下框架中打开；4）在right.htm中放入实验一所做表单。

图1图2实验结果：1、代码一．<html><head><title>无标题文档</title></head><frameset rows="20%,*" frameborder=yes frameborder=3 framespacing=3> <frame src=top.htm ><frameset cols="50%,*" frameborder=yes><frame src=left.htm name=left><frame src=right.htm name=right></frameset></frameset><noframes><body></body></noframes></html>二．<html><head><title></title></head><body><table border=1 width=345 height=139><caption><h3 align=center>课程表</h3></caption><tr><h5 align=center><td><h5 align=center>课号</h5></td><td><h5 align=center>课程名</h5></td><td><h5 align=center>学分</h5></td></h5></tr><tr><td>1002201</td><td><a href=net.htm target=right>网络原理</td><td>6</td></tr><tr><td>1003302</td><td><a href=web.htm target=right>网页设计与制作</td><td>5</td></tr></table></body></html>2、小结教师评语：□ 优秀：理论扎实，应用灵活准确□ 良好：过程清晰，结论基本正确□ 合格：基本完成，部分需要改进□ 不合格。

VBScript程序设计

实验二VBScript程序设计一、实验目的了解VBScript基础知识、VBScript数据类型及运算符以及VBScript常用函数。

了解VBScript语法结构、掌握如何创建和使用VBScript过程和函数。

二、实验内容VBScript基础知识VBScript数据类型及运算符VBScript的变量与常量VBScript常用函数VBScript语法知识VBScript过程的创建和使用VBScript函数的创建和使用三、实验步骤【3-1】在“记事本”或“Dreamweaver”中输入下列代码,以后缀名为.htm格式保存此文件。

<html><body><script language="vbscript">document.write("你好,今天天气真好!")</script></body></html>【3-2】输出用户输入的姓名。

<html><body><script language="vbscript">dim name'此处用到了window对象中的prompt()办法,意为产生输入框。

name=prompt("请输入你的姓名")document.write("欢迎你!" & name)</script></body></html>【3-3】使用InputBox函数，产生一个接收用户输入信息的输入框。

<html><body><script language="vbscript">dim namename=inputbox(“请输入你的姓名” ,"inputbox函数的实例","思维")document.write("欢迎你!" & name)</script></body></html>【3-4】使用MsgBox函数，将提示信息显示在对话框中，等待用户选择。

VB实验报告

学号：姓名：班级：实验时间：实验编号 VB05 实验名称常用控件
实验目的和要求 1. 单选框
2. 复选框
3. 框架控件的使用和列表框的使用
实验内容 1.单选框、复选框的主要属性
2.框架及列表框的方法
一、实验题目
1.单击民族所选内容出现在文本框中，选择爱好，爱好接在民族后出现在文本框内。

具体功能运行“选框与框架”文件。

代码编写：
Visual Basic 程序设计实验（训）报告
.
2.界面如下图，左侧为列表框，运行后选择列表框中的球星，在右侧的标签中出现该球星属于哪个国家。

（两种）
代码编写：
3. 已知李明的工资为2200元，每年可加工龄工资1%，多少年后小明的工资超过2500元？只要代码：
4. 输入x,y,z三个数，按从大到小的次序显示，如图所示。

代码：
截图：
5. 在歌手大奖赛中，有10名评委为选手打分，分数为1到100的整数，选手最后得分为，去掉一个最高分和一个最低分后其余8个分数的平均分，编程实现求一名选手的最后得分。

（最后得分小数点后保留两位有效数字）。

如输入：94，91，93，94，90，99，97，92，91，95
则输出：
Cancle max score:99
Cancle min score:90
Average score:92.88
(请用循环的方法编程)
只要代码：
二、实验感受(包括上机过程中遇到的问题和如何解决的问题、通过上机实践学到了些什么知识、对上机的意见等)。

VB程序实验报告

VB程序设计》实验报告实验二顺序结构程序设计Text3 = Len(Text1)Text4 = Len(Trim(Text1))End SubPrivate Sub Form_Load()End Sub计算机技术基础（VB）实验报告——实验二四、思考并回答1．写出实验中的代码：⑴2-1a 代码是：Private Sub Command1_Click() Text2.Text = 2 * 3.14 * Val(Text1) End SubPrivate Sub Command2_Click() Text3.Text = 3.14 * Val(Text1) ^ 2 End SubPrivate Sub Form_Load()End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1) Theni = MsgBox("输入了非法字符！", 64, "提示") Text1 = ""Text1.SetFocusEnd If Text2 = ""Text3 = ""End Sub⑵2-1b 代码是：Private Sub Command1_Click()Const pi = 3.14159Dim r As Single, l As Single, s As Single r = InputBox(" 请输入半径:", " 输入半径") s = pi * r ^ 2 l = 2 * pi * r Label2 = Label2 & rLabel3 = Label3 + Str(l) label4 = label4 + Str(s)End Sub2．2-2a 代码是：Private Sub Command1_Click() Text1.ForeColor = RGB(255, 0, 0) Text2.ForeColor = RGB(255, 0, 0) Text2.PasswordChar = ""Text1 = (Text1 = "2006000")Text2 = (Text2 = "TJin1234") End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_GotFocus()Text1 = ""Text1.ForeColor = RGB(0, 0, 0)End SubPrivate Sub Text2_GotFocus()Text2 = ""Text2.ForeColor = RGB(0, 0, 0) Text2.PasswordChar = "*" End Sub3．2-2b 代码是：Private Sub Command1_Click()Text2 = UCase(Text1)End SubPrivate Sub Command2_Click()Text2 = LCase(Text1)End SubPrivate Sub Command3_Click()Text3 = Len(Text1)Text4 = Len(Trim(Text1))End SubPrivate Sub Form_Load()End Sub4. 2-2c 代码是：5. 2-3a 代码是：Private Sub Command1_Click() Dim x%, y%x = Text1: y = Text2x = y Text3 = x Text4 = y End SubPrivate Sub Command2_Click() Dim x%, y%x = Text1: y = Text2 y = xText3 = x Text4 = yEnd SubPrivate Sub Command3_Click() Dim x%, y%x = Text1: y = Text2x = x + 1 Text3 = x Text4 = y End SubPrivate Sub Command4_Click() Dim x%, y%x = Text1: y = Text2x = x + y Text3 = x Text4 = y End SubPrivate Sub Command5_Click() Dim x%, y%x = Text1: y = Text2x = y: y = x Text3 = x Text4 = y End SubPrivate Sub Command6_Click() Dim x%, y%, t%x = Text1: y = Text2 t = x: x = y: y = t Text3 = x Text4 = y Text5 = t End Sub Private Sub Form_Load() End Sub6. 2-3b 代码是：Private Sub Command1_Click() Dim r1!, r2!, r3!, X!r1 = Val(Text2): r2 = Val(Text3): r3 = Val(Text4) X = 1 / (1 / r1 + 1 / r2 + 1 / r3) Label5 = "计算结果:" & XEnd Sub五、简述本次实验存在的问题在实验2-3b中：需题目的公式是一张图片。

vb实验报告

实验报告1
一、实验步骤
1.设计窗体
2.编写代码
3.运行结果
正确
二、实验总结
实验1是最为基础的，基础会了，才能为后面加深难度做准备。

实验报告2
一、实验步骤
1.设计窗体
2.编写代码
3.运行结果
错误1
错误2
错误3
正确
二、实验总结
写代码要认真，一点错误就能导致错误。

一开始讲“inputbox”写成了“input”，还困扰了我很久。

实验报告3
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
二、实验总结
心细很重要，并注重结合以前所学知识，同样一道题就能用多种方法解决，写出不同的代码。

实验报告4
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
正确
二、实验总结
按部就班，一步步来，就能做好。

实验报告5
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
正确
二、实验总结
设计窗体时，也需要注意美观，可以用色彩区分区域，使人一眼明了。

实验报告6
一、实验步骤
1、设计窗体
2、编写代码
3、运行结果
正确
二、实验总结
编写代码时，对象过多一定要注意对象名，不然容易出错，导致实验失败。

总体来说，上课做笔记很重要，但同样要有自己的思路，或许能做出更好的。

实验二VBScript程序初步

实验二 VBScript程序初步一、实验目的：1、了解并掌握VBScript脚本程序设计语言的基本语法知识及简单程序设计方法；2、熟练掌握VBScript中的输出方法；二、实验内容：1、利用VBScript在网页中输出当前的时间和日期。

2、计算边长为5厘米的正方形与半径为5厘米的圆的面积差，并显示出来三、实验步骤：1、利用客户端脚本在网页中输出当前的时间和日期。

利用文本编辑工具，编辑完成后保存文件名为dt.html或dt.htm。

可以保存在本机的任何路径下，用鼠标双击该文件进行浏览，观察输出。

2、计算边长为5厘米的正方形与半径为5厘米的圆的面积差。

利用文本编辑工具，编辑完成后保存文件名为area.html，可以保存在本机的任何路径下，用鼠标双击该文件进行浏览，观察输出。

四、实验分析、总结、结果：1、Date 函数下面的示例利用Date函数返回当前系统日期:Dim MyDateMyDate = Date ' MyDate 包含当前系统日期。

2、Time 函数下面的示例利用Time函数返回当前系统时间:Dim MyTimeMyTime = Time ' 返回当前系统时间。

3、字符串常数这些常数在 VBScript中被建立，您在使用之前不必定义它们。

您可在代码中任意处使用它们以表示说明值。

六、实验思考题:1、在dt.html程序中，用到了vbcrlf是什么意思？能和”<br>”互换使用吗？为什么？2、利用客户端脚本在网页中弹出对话框（其中对话框中内容为“请您确认数据是否正确！”，并有两个按钮，一个是“确定”，一个是“取消”），当点击“确定”，页面上显示一个字符串“您已经确认了数据的准确性”；当点击“取消”，网页上显示“您刚刚取消了您的操作”。

VB实验报告

《VB程序设计》实验单元一实验报告实验一VB环境和可视化编程基础一、实验目的1 了解Visual Basic 的安装2 掌握启动与退出Visual Basic3掌握建立、编辑和运行一个简单应用程序的全过程4掌握基本控件的使用二、实验环境VB6.0三、实验内容1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。

提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。

对文本框计数：Text仁Val(text1)+1 。

2、命令按钮、字号、内容和格式的复制练习。

按钮1:使得Textl中的文本按要求改变1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数从运用中点击vb6.0经典版打开标准EXE建立一个form 1添加一个Label和TextBox，Label的caption改为"你单击窗体的次数"，TextBox的text 改为空，然后编写T・tl Tq| - T«J|3'T H|| Tor" ■* q3 士 ________________________________ ___ _______________________________________________________________________件Fu-w.Cbwgi^T«ztl t«it * ■■ITIYWI- N# 口Eid沁J*iJ___________________ I点击运行即可。

2、命令按钮、字号、内容和格式的复制练习从运用中点击vb6.0经典版打开标准EXE建立一个form 1添加两个Label 两个TextBox 两个CommandButtor，Label的caption改为“输入内容"和“复制效果"，TextBox 的text 改为"任意文字"和“空"，CommandButton 的caption 改为“隶书25磅”和“复制=> ”。

实训 VBScript综合实训

实训VBScript综合实训实训VBScript综合实训【实训前的准备】1．检查是否连接了Internet。

2．检查操作系统是否Windows 98/2000或Windows XP。

3．在除C：盘上（可以在D：盘、E盘、或其他逻辑盘）创建一个新文件夹，名字为student。

4．检查系统是否有：Word 2000、Dreamweaver、FrontPage、记事本等软件。

【实训目的要求】1．了解VBScript的运行环境。

2．熟悉VBScript的编辑工具。

3．熟悉VBScript在HTML中的应用。

4. 了解VBScript的数据类型，和常用函数的基本应用。

5．熟悉VBScript的过程、条件语句、循环语句的基本应用。

【实训内容及操作步骤】操作一】VBScript中if……then……else语句应用实训1．打开记事本或者Dreamweaver软件。

2．输入以下内容：<html><head><title>If..Then..Else的应用</title></head><body><Script Language=VBScript>Sub GreetingMessage()If Hour(Now)< 8 ThenMsgBox "您早!"ElseIf Hour(Now) < 12 ThenMsgBox "早上好!"ElseIf Hour(Now) < 14 ThenMsgBox "午安!"ElseIf Hour(Now) < 17 ThenMsgBox "下午好!"ElseIf Hour(Now) < 22 ThenMsgBox "晚上好!"ElseMsgBox "晚安!"End Ifend subGreetingMessage()</Script></body></html>3．将文件保存在D:\student\if.txt。

实验二VBScript编程实验报告

vb实验报告二

实验二VBScript编程实验报告

vb实验报告二

实验二VBScript编程实验报告

VB实验二 实验报告

VB实验报告

第二版vb实验报告

vb实验报告3

vbse实训报告总结

vb实验报告2

vb实习报告

vb实验报告

vbscript计算机实验报告二

VBScript程序设计

VB实验报告

VB程序实验报告

vb实验报告

实验二VBScript程序初步

VB实验报告

实训 VBScript综合实训

VB实验二实验报告