VB实验报告(含答案)

Label1.FontName =“宋体”
ElseIf Option2.Value = True Then
Label1.FontName =“华文仿宋”
ElseIf Option3.Value = True Then
Label1.FontName =“黑体”
Else
Label1.FontName =“楷体_GB2312”
Label1.Left = 0
Else
Label1.Left = Label1.Left + 100
End If
End Sub
实验五数组程序设计
一．实验目的：
1．熟练掌握固定数组。
2．掌握动态数组。
3．掌握列表框和组合框。
4．了解直线控件和形状控件。
二．实验内容：
1．设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生10个100到200之间的整数，在文本框中显示结果信息。界面如图5-1所示。
If b = 0 Then
MsgBox“除数为0”
else
Text4.Text = a / b
End If
End If
End Sub
3.通过单选按钮和复选框控制文字的显示,Command1命令的单击事件的程序代码是什么
Private Sub Command1_Click()
If Option1.Value = True Then
实验报告
课程名称_程序设计基础Visual Basic_
班级___________＿
姓 名_________
实验一VB环境和创建一个简单的VB程序
一．实验目的：
1.了解VB系统对计算机软件、硬件的要求。
2.掌握启动和退出VB的方法。
3.了解和使用VB集成开发环境各窗口、菜单的一般功能。
4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。
For k = 1 To 100
s = s + 1 / k
Next k
For k = 1 To 50
s = s + k
Next k
Print s
End Sub
2．滚动字幕的触发时钟控件的程序代码是什么？。
Private Sub Timer1_Timer()
If Label1.Left > Form1.Width Then
““
文本框
四．实验思考：
1．数组应在过程内还是过程外定义，定义的语句是什么？
过程外定义
Dim a(10) As Integer
2．在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？
Private Sub Form_Load()
Dim i%
For i = 1 To 10
a(i) = Int(Rnd * 101 + 100)
a = Val(Text1.Text)
b = Val(Text3.Text)
c = Text2.Text
Select Case c
Case“+”
Text4.Text = a + b
Case“-”
Text4.Text = a - b
Case“*”
Text4.Text = a * b
Case“/”
If b = 0 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
If Check3.Value = 1 Then
List1.AddItem a(i)
Next i
End Sub
3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？
Private Sub Command1_Click()
Dim i As Integer, max%, min%, avg!
max = a(1)
min = a(1)
avg = 0
图2-1
图2-2
三．实验结果：对象属性设置
1.温度转换
对象
属性
属性值
说明
Form1
Caption
Inputbox与msgbox应用
窗体
Command1
Caption
温度转换
命令按钮
2.三种除法运算（/、\、Mod）做计算
对象
属性
属性值
说明
Label1
Caption
被除数
标签
Label2
Caption
图1.1实验1-1运行界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
2.通过单选按钮和复选框控制文字的显示，程序窗口如图3-2所示。
图3-1
图3-2
三．实验结果：对象属性设置
1.模拟简易计算器
对象
属性
属性值
说明
Label1
Caption
输入数1
标签
Label2
Caption
运算器
标签
Label3
Caption
输入数2
标签
Label4
Caption
结果
标签
Command1
End If
If Option5.Value = True Then
Label1.FontSize = 24
ElseIf Option6.Value = True Then
Label1.FontSize = 16
Else
Label1.FontSize = 8
End If
If Check1.Value = 1 Then
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图1.1所示。
Private Sub Command1_Click()
Dim a!,b!
a=val(text1.text)
b= val(text2.text)
text3.text=a/b
text4.text=a\b
text5.text=a mod b
End Sub
实验三选择程序设计
一．实验目的：
1.掌握单分支与双分支条件语句的使用。
End If
End Sub
实验四循环程序设计
一．实验目的：
1．理解循环程序设计的特点。
2．掌握常用的循环语句。
3．掌握常用的循环算法。
4．掌握图片框、图像框和计时器。
二．实验内容：
1．求
2．设计一条滚动的广告字幕。
三．实验结果：对象属性设置
1．求和结果要求窗体载入时直接显示，设置窗体的某个属性。
对象
MsgBox“除数为0.”
Else
Text4.Text = a / b
End If
End Select
End Sub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
a = Val(Text1.Text)
Caption
Case结构
命令按钮
Command2
Caption
if结构
命令按钮
Text1-text4
Text
““
文本框
2.单选框与复选框
对象
属性
属性值
说明
Frame1
Caption
字体
框架
Frame2
Caption
字号
框架
Frame3
Caption
字型
框架
Label1
Caption
奥林匹克运动会
标签
Label1.Caption=“请输入姓名”
Label1.fontsize=24
Label1.fontbold=True
2.两个按钮所使用的是什么事件？代码分别是什么？
Private Sub Command1_Click()
Text1.text=“姓名”
End Sub
Private Sub Command2_Click()
For i = 1 To 10
If max < a(i) Then max = a(i)