VB实验报告答案新
vb实验报告(答案)
Print "数理化"
End Sub
Private Sub Cmd2_Click()
Print "政史地"
End Sub
心得体会：（可以从以下几个方面来总结：你在上机过程中遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？你有什么没有解决的问题？等）
A. Text1.MaxLength = 0 B. Text1.Enabled = False
C. Text1.Visible = FalseD. Text1.Width = 0
5、设置命令按钮的属性时，只有将（A）属性设置为1，Picture属性才有效，否则无效。
A、StyleB、CaptionC、EnabledD、Default
试验报告（1）
院（系）：课程名称：日期：
班级
学号
实验室
专业
姓名
计算机号
实验
名称
VB环境的熟悉与应用
成绩评定
所用
软件
Visual Basic 6.0
教师签名
实
验
目
的
或
要
求
1．熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程。
2．初步了解几个常用控件的使用方法。
实
验
步
骤
、
心
得
体
会
1、在vb中____C_____被称为对象。
10、确定一个控件在窗体上位置的属性是__Left_______和___Top______。
11、窗体边框类型的默认值是___2___。
9、Visual Basic集成开发环境主要窗口包括__窗体设计窗口；代码设计窗口；_属性窗口；_工程资源管理器窗口_；_工具箱窗口。
实验报告簿（程序设计基础VB答案）
实验日期_____________________实验名称：实验一常用标准控件一【实验目的与要求】1.掌握Visual Basic的启动与退出。
2.熟悉Visual Basic的集成开发环境。
3.掌握在窗体中放置控件的方法。
4.掌握在“属性窗口”中设置控件属性的方法。
5.掌握在“代码编辑器”窗口中输入程序代码的方法。
6.掌握工具栏上启动按钮、结束按钮的使用方法。
7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。
【实验内容与步骤】实验1.1.1 标签的使用(一)1.题目与要求：在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置一个标签控件Label1；2)属性设置（请将表格补充完整）表1.1.1 对象属性文件名为sjt1.frm。
实验1.1.2 标签的使用(二)1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图所示。
2．属性设置（请将表格补充完整）表1.1.2 对象属性sjt2.frm。
实验1.1.3 文本框的使用1.题目与要求：在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中。
程序中不得使用任何变量。
2.实验步骤1)界面设置：在名称为Form1的窗体上放置两个文本框；2)属性设置表1.1.3 对象属性Private Sub T1_Change()T2.Text=T1.Text (T2=T1)End Sub3)保存文件：存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
VB编程实验报告答案 完整版
实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D 10. BC11. A 12.D 13. D 14. C 15. A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11.工程文件结构12. 工程13. 设计程序代码14. 双击窗体15. C:\Program Files\Microsoft Visual Studio\VB98 或者VB的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象实验二：一、选择1.B2.C3. B4.C5.C6.C7.B8.B9.D 10. A11. C 12.C 13. C 14. B 15. A16.C 17.B 18.D 19.C 20. C二、填空1. Form_Click()2. Interval、50003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B 10. B11. 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)实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A 10. 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实验五一、选择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 5实验六一、选择B C C C D D D D C A实验七一、选择1C 2C 3D 4A 5B 6D 7AB 8A 9A 10A 二、填空（1）n！（2）1+1+2+3+4+……+n（3）n是否是素数（4）冒泡排序（5）递归调用产生斐波那契数列（6）求最大公约数和最小公倍数第八页编程2-1Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)End SubPrivate Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2-2Private Sub Command1_Click()Picture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = FalseEnd Sub2-5Private Sub Form_Load()Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Sunset.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Image1_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 Sub第11页编程2-3Private 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 SubPrivate Sub Form_Load()End Sub2-4Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m + 1) + m)y = Int(Rnd * (n - m + 1) + m)z = Int(Rnd * (n - m + 1) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd SubPrivate Sub Form_Load()End Sub2-5Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date)) End SubPrivate Sub Form_Load()End Sub第十五页2-1方法一Private 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 Sub方法二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 Sub2-2Private 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 Sub2-3方法二Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数") z = InputBox("输入第三个数") If x > y Then t = x: x = y: y = t If y > z Then t = y: y = z: z = t If x > y Then t = x: x = y: y = t Print x, y, zEnd SubPrivate Sub Form_Load()End Sub方法一Private Sub Command1_Click() Dim x%, y%, z%x = Val(Text1)y = Val(Text2)z = Val(Text3)If x > y Then t = x: x = y: y = t If y > z Thent = y: y = z: z = tIf x > y Thent = x: x = y: y = tEnd IfLabel1 = x & Space(5) & y & Space(5) & z End Sub2-4方法一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.5Case Is >= 100fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元"End IfPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End 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 >= 100fei = x * 1End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为" ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()End Sub2-5第18页2-3Private 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 Sub]2-5Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1Print xLoopPrint x, nEnd Sub2-6Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0)) For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Form_Load()-8End Sub2-8Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub2-9Private Sub Command1_Click()For n = 100 To 999k = Trim(Str(n))If n = Left(k, 1) ^ 3 + Mid(k, 2, 1) ^ 3 + Right(k, 1) ^ 3 Then Print nNextEnd Sub2-11Private Sub Command1_Click()s = 0: Max = 0: Min = 1000For i = 1 To 20Randomizex = Int(Rnd * 50 + 51)Print x;If x > Max Then Max = xIf x < Min Then Min = xs = s + xNext iaver = s / 20PrintPrint "max="; Max, "min="; Min, "aver="; aver End SubPrivate Sub Form_Load()End Sub。
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]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。
实验报告标准答案.doc
实验报告标准答案课程名称:实验报告1成绩评定:实验项目名称:指导教师实验项目编号:实验项目类型:实验地点:学生姓名:学号:学院:系专业:实验时间年月日午～月日午一、实验目的1.熟悉VB编程环境，能够建立、编译和运行VB程序。
2.掌握窗体、标签、文本框、命令按钮、图形框的作用、常用属性、事件和方法。
3.理解并掌握赋值语句、掌握表达式的书写规则。
4.掌握使用Inputbox函数和MsgBox消息函数进行输入输出。
5.熟悉VB的数据类型和类型转换。
二、实验内容(一)字幕滚动1.设计如下图所示的界面实现字幕从上到下进行滚动，“欢迎使用VB”是一个字幕标签，两个命令按钮分别实现自动滚动和手动滚动。
a)在窗体水平居中的地方放置一个标签。
b)当字幕向下移出窗体时，重新从窗体顶端开始继续往下移动。
c)单击“手动”按钮一次字幕将向下移动一下，单击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。
d)以EX1-1分别保存窗体和工程。
2.实验要求a)对于标签应对其什么属性设置什么值才能够使窗体的背景不被遮挡？Backstyle----1b)使标签在窗体中水平居中需要设置什么属性，如何设置？设置的依据是什么？label1.Left---form1.width/2-label1.width/2c)要想在命令按钮上显示图片，需要设置哪些属性，如何设置？Style-----1d)写出标签从上往下移动的代码，注意，当标签移出窗体后要从窗体上顶端开始继续往下。
Label1.MoveLabel1.Left,Label1.Top+50IfLabel1.Top>Form1.HeightThe nLabel1.Top=0e)要使Timer控件启用，必须设置哪两个属性，属性值设置为多少？Timer1.Interval=100Timer1.enabled=truef)单击“手动”按钮时，如何使Timer控件停用？需要在什么地方编写代码？请写出代码？Timer1.Interval=0或Timer1.enabled=false(二)打开教材实验材料中工程文件EXA05.vbp，完成下面的任务。
VB实验参考答案
VB实验参考答案VB实验参考答案VB（Visual Basic）是一种常用的编程语言，广泛应用于软件开发领域。
在学习VB的过程中，进行实验是非常重要的一部分。
本文将为大家提供一些VB实验的参考答案，帮助大家更好地理解和掌握VB编程。
实验一：简单的计算器程序要求：编写一个简单的计算器程序，能够实现基本的加减乘除运算。
参考答案：```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If rbAdd.Checked Thenresult = num1 + num2ElseIf rbSubtract.Checked Thenresult = num1 - num2ElseIf rbMultiply.Checked Thenresult = num1 * num2ElseIf rbDivide.Checked ThenIf num2 <> 0 Thenresult = num1 / num2ElseMsgBox("Error: Division by zero!")End IfEnd IftxtResult.Text = resultEnd Sub```实验二：学生成绩管理系统要求：编写一个学生成绩管理系统，能够实现学生信息的录入、查询和统计功能。
参考答案：```vbPrivate Sub btnAdd_Click()Dim name As StringDim score As Integername = txtName.Textscore = CInt(txtScore.Text)lstStudents.Items.Add(name & " - " & score)End SubPrivate Sub btnSearch_Click()Dim searchName As StringDim index As IntegersearchName = txtSearch.Textindex = lstStudents.FindString(searchName)If index <> -1 ThenlstStudents.SelectedIndex = indexElseMsgBox("Student not found!")End IfEnd SubPrivate Sub btnStatistics_Click()Dim totalScore As IntegerDim averageScore As DoubleDim count As IntegerFor Each item As String In lstStudents.ItemsDim score As Integer = CInt(item.Split("-")(1).Trim()) totalScore += scorecount += 1NextaverageScore = totalScore / counttxtTotalScore.Text = totalScoretxtAverageScore.Text = averageScore```实验三：简单的图书管理系统要求：编写一个简单的图书管理系统，能够实现图书信息的录入、查询和删除功能。
vb实验作业参考答案
vb实验作业参考答案VB实验作业参考答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。
在学习VB编程过程中，实验作业是非常重要的一部分，通过实践来巩固所学知识。
本文将提供一些VB实验作业的参考答案，帮助读者更好地理解和掌握VB编程。
一、VB基础知识实验作业参考答案1. 实验题目：编写一个VB程序，实现两个整数的加法运算，并将结果显示在文本框中。
参考答案：```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目：编写一个VB程序，实现输入一个数字，判断该数字是奇数还是偶数，并在消息框中显示结果。
参考答案：```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目：编写一个VB程序，实现一个简单的计算器功能，包括加法、减法、乘法和除法操作。
参考答案：```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目：编写一个VB程序，实现一个简单的登录界面，包括用户名和密码输入框以及登录按钮。
VB实验教材的实验与习题答案
实验4-11
Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St
?
实验4-12
i\100 ; (i Mod 100)\10
?
习题
一、 选择题
1．C 2. C 3.A 4. D 5.A 6. B 7. B 8. D 9. B
Const g = 9.8
Dim V0 As Single, t As Single
Dim S As SingFra biblioteke V0 = InputBox("请输入V0的值：")
t = InputBox("请输入时间t的值：")
S = (1 / 2) * g * t ^ 2 + V0 * t
Randomize
a = Int(Rnd * (999 - 100 + 1) + 100)
h = Mid(CStr(a), 1, 1)
t = Mid(CStr(a), 2, 1)
n = Right(CStr(a), 1)
Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")
List1.AddItem Log(a) / Log(b)
End Sub
‘关系运算
Private Sub Command2_Click()
List1.Clear
List1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basic程序设计基础实验1.1 常用标准控件（一）【实验目的与要求】1.掌握Visual Basic的启动与退出。
2.熟悉Visual Basic的集成开发环境。
3.掌握在窗体中放置控件的方法。
4.掌握在“属性窗口”中设置控件属性的方法。
5.掌握在“代码编辑器”窗口中输入程序代码的方法。
6.掌握工具栏上启动按钮、结束按钮的使用方法。
7.掌握标签、文本框、命令按钮、列表框等控件的使用方法。
【实验内容与步骤】实验1.1 标签的使用(一)1.题目与要求请根据以下的要求设计Visual Basic应用程序（包括界面和代码）。
在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：1)标签的内容为“计算机等级考试”；2)标签可根据显示内容自动调整其大小；3)标签带有边框，且标签内容显示为三号字。
运行后的窗体如图1.1.1(a)所示。
存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1.1.1(a)2.实验步骤1)界面设置在名称为Form1的窗体上放置一个标签控件Label1，如图1.1.1(b)所示；图1.1.1(b)2)属性设置表1.1.1 对象属性单击工具栏上的启动按钮，执行程序，运行后窗体如图1.1.1(a)所示。
4)保存文件存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。
实验1.2 标签的使用(二)请根据以下的要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上画一个名称为 Label1的标签，标签的长和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图1.1.2所示。
图1.1.22．属性设置（请将表格补充完整）表1.1.2 对象属性sjt2.frm。
实验1.3 文本框的使用1.题目与要求请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。
请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图1.1.3所示）。
程序中不得使用任何变量。
存盘时必须放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
图1.1.32.实验步骤1)界面设置在名称为Form1的窗体上放置两个文本框，如图1.1.3所示；2)属性设置Private Sub T1_Change()T2.Text = T1.TextEnd Sub4)执行程序单击工具栏上的启动按钮，执行程序，运行后输入abcdef，窗体如图1.1.3所示。
5)保存文件存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
实验1.4 命令按钮的使用(一)请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上画一个名称为C1、标题为“变宽”的命令按钮，窗体标题为“改变按钮大小”。
编写程序，使得单击命令按钮时，命令按钮水平方向的宽度增加100，程序运行后的窗体如图1.1.4所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
图1.1.42．属性设置（请将表格补充完整）表1.1.4 对象属性Private Sub C1_Click()C1.Width = C1.Width + 100End Sub4.存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
实验1.5 命令按钮的使用(二)请根据以下的要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”：再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。
如图1.1.5所示。
请在属性窗口中设置适当的属性满足以下要求：1)窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；2)在任何情况下，按回车键都相当于单击“是”按扭；按ESC键都相当于单击“否”按扭。
图1.1.52.属性设置（请将表格补充完整）表1.1.5 对象属性3sjt5.frm。
实验1.6 列表框的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上画1个名称为Lablel1、标题为“列表框的使用”的标签。
再画1个名称为List1的列表框，列表中含有5个表项，表项内容分别为“北京”、“山西”、“辽宁”、“浙江”和“广东”，并且可以在列表中同时选择多个表项。
运行后的窗体如图1.1.6所示。
图1.1.62.属性设置（请将表格补充完整）表1.1.6 对象属性sjt6.frm。
实验1.7 命令按钮与文本框的使用(一)请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为From1的窗体上画二个文本框，名称分别为Text1、Text2，都显示垂直滚动条和水平滚动条，都可以显示多行文本；再画一个命令按钮，名称为C1，标题为“复制”（如图1.1.7所示）。
请编写适当的事件过程，使得在运行时，在Text1中输入文本后，单击“复制”按钮，就把Text1中的文本全部复制到Text2中，程序中不得使用任何变量。
图1.1.72.属性设置（请将表格补充完整）3.完善程序代码Private Sub C1_Click()Text2.Text = Text1.TextEnd Sub4.存盘时必须存放在C:\VB\Sy01文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。
1.2 常用标准控件（二）【实验目的与要求】1.掌握选项按钮、复选框和框架的使用方法。
2.掌握图像控件和图片框的使用方法。
3.掌握水平滚动条和垂直滚动条的使用方法4.掌握图形控件的使用方法。
5.掌握计时器控件的使用方法。
【实验内容与步骤】实验2.1 选项按钮的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上画一个名称为Text1的文本框，画二个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”，名称分别为Option1、Option2 、Option3；在Frame2框架中画二个单选按钮，标题分别为“宋体”、“黑体”，名称分别为Option4、Option5。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作（如图1.2.1所示）。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
图1.2.12.属性设置（请将表格补充完整）表1.2.1 对象属性3.完善程序代码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 Sub4.存盘时必须存放在C:\VB\Sy02文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
实验2.2 复选框的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1标题为“选课”的窗体上画四个复选框，名称分别为CH1、CH2、CH3、CH4，标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下，运行时的窗体如图1.2.2所示。
请画控件并设置相应属性。
图1.2.22.属性设置（请将表格补充完整）表1.2.2 对象属性3.存盘时必须存放在C:\VB\Sy02文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
实验2.3 图像的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上画一个名为Image1的图像框，其高、宽分别为2000、3000，且不随图片大小而变化；再画两个命令按钮，标题分别是“显示图片”和“隐藏图片”，名称分别为Cmd1、Cmd2。
如图1.2.3所示。
需编写两个命令按钮的Click事件过程，使得当单击“显示图片”按钮时，将C:\VB\Sy02文件夹下的图片文件“图片1.jpg”显示在图像框中；而如果单击“隐藏图片”按钮，则清除图像框中的图片。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
图1.2.32.属性设置（请将表格补充完整）表1.2.3 对象属性Private Sub Cmd1_Click()Image1.Picture = LoadPicture("c:\vb\sy02\图片1.jpg")End SubPrivate Sub Cmd2_Click()Image1.Picture = LoadPicture("")End Sub4.存盘时必须存放在C:\VB\Sy02文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
实验2.4 图片框和滚动条的使用请根据以下要求设计Visual Basic应用程序（包括界面和代码）。
1.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个垂直滚动条（名称为VScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为图片2.jpg，位于C:\VB\Sy02文件夹下），图片框的宽度和图形的宽度相同，图片框的高度任意（如图1.2.4(a)所示）。
编写适当的事件过程。
程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：Min 100Max 2400LargeChange 200SmallChange 20之后就可以通过滚动条上的滚动块来放大或缩小图片框的高度。