实验日期 年 月 日
实验三 顺序结构程序设计
实验目的：
1．熟练掌握VB的基本数据类型。 2．熟练掌握基本的输入输出函数和语句。 3．掌握顺序结构程序设计的方法。
实验内容
1、定义两个变量a和b，它们的值分别由键盘输入。编程计算并输出a与b的和、差、积、商、a除以b的余数、a b的值。（要求自己设计窗体及输入、输出，必须有明确的示意提示）。
? 代码编写：
代码
Private Sub Form_Click() Dim a as integer,b as integer
a = Val(InputBox(\输入a的值\b = Val(InputBox(\输入b的值\Print \Print \Print \Print \
Print \End Sub
遇到的主要问题及分析：
2、定义一个变量a，由键盘输入其值为任意四位整数，编程实现分别输出个、十、百、千位四个数字，并各个数字的平方和。
【提示】利用mod和\\运算符将每一位分离。
13
? 代码编写：
代码
Private Sub Form_Click() Dim a As Integer Dim b%, c%, d%, e%
a = Val(InputBox(\输入a的值,要求4位整数\b = a Mod 10 '个位 c = a \\ 1000 '千位
d = (a - c * 1000) \\ 100 '百位 e = (a - c * 1000 - d * 100) \\ 10 Print \个位:\Print \十位:\Print \百位:\Print \千位:\
Print \平方和:\End Sub
遇到的主要问题及分析：
3、P262 实验B 二、1。 ? 代码编写：
代码
Private Sub Command2_Click()
Text1 = Format(9 / 5 * Val(Text2) + 32, \End Sub
遇到的主要问题及分析：
4、设计窗体并实现：
1）单击“连接”，将Text1和Text2的内容连接起来显示在Text3； 2）单击“求和”，求出Text1和Text2之和显示在Text3 ；
3）要求：在单击“连接”之前Text3不可见，点“连接”之后“连接”按钮不可用；
(a) 设计状态 (b) 运行状态
14
图3.1 实验3.4窗体
? 代码编写：
代码
Private Sub Command1_Click() Text3.Visible = True Text3 = Text1 & Text2
Command1.Enabled = False End Sub
Private Sub Command2_Click() Text3 = Val(Text1) + Val(Text2) End Sub
Private Sub Form_Load() Text3.Visible = False End Sub
遇到的主要问题及分析：
5、创建VB工程，界面如右所示，编程实现运行时可将标签中的文字字号随机放大（1~5整数倍）和（任意比例）缩小以及还原（原来字号）。界面如右图所示。
【提示】 图3.2 实验3.5窗体
1）将标签的AotuSize属性设置为False及True，看看有什么区别？
2）用一个变量在程序开始运行时记住标签中原始字体的大小（想想放在什么事件过程中？）；这个变量还会在“还原”按键中使用，其说明语句要放在通用-声明中；
3）每次按放大或缩小按键都会在当前的基础上放大或缩小； 4）字体放大到一定程度会出现“溢出”的错误提示，可以先不管。
? 代码编写：
代码
Dim t
Private Sub Form_Load()
遇到的主要问题及分析：
15
t = Label1.FontSize End Sub
Private Sub Command1_Click()
Label1.FontSize = Label1.FontSize * Int(Rnd * 5 + 1) End Sub
Private Sub Command2_Click()
Label1.FontSize = Label1.FontSize * Rnd End Sub
Private Sub Command3_Click() Label1.FontSize = t End Sub
6、编程实现随机产生一个“F”~“S”范围内的大写字母，并输出该字母及其对应的ASCII码值，同时输出其小写字母及其对应的ASCII码的值。
? 代码编写：
代码
Private Sub Form_Click()
a = Int(Rnd * (83 - 70 + 1) + 70) Print Chr(a); \的ASCII值=\
Print LCase(Chr(a)); \的ASCII值=\End Sub
遇到的主要问题及分析：
【选作题1】编程解决古代数学问题“鸡兔同笼”。即已知在同一个笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？
【提示】鸡和兔的总数m、鸡和兔的总脚数n需要预先输入（文本框或输入框输入）。再设鸡和兔子的个数分别为x和y，通过已知输入的m和n；列出方程求解，分别用m,n两个已知量来表示x和y。
? 代码编写：
代码
Private Sub Form_Click() m = Val(Text1) n = Val(Text2) y = 1 / 2 * n - m x = 2 * m - 1 / 2 * n
Print \鸡有\兔子有\End Sub
遇到的主要问题及分析：
16
【选作题2】编程实现电话号码自动升位。要求将原来任意一个带区号的7位电话号码升到8位，在电话号码最前面加8。程序运行结果如图所示。（要求必须适用于3位或4位区号的电话号码）
【提示】无论区号或电话号码是多少位，只要找到“-”的位置，就可以将“-”之前（包括“-”）的左子串、“8”、以及“-”后面剩下的字符串 “串”起来。
? 代码编写：
代码
Private Sub Form_Click() a = InStr(Text1, \
Text2 = Left(Text1, a) + \End Sub
遇到的主要问题及分析：
【提高题】参考教材P33的例2.5及P65的例4.2，完成P263实验B 二、2。 ? 代码编写：
代码
Const PI = 3.14
Private Sub Command1_Click() r = Val(Text1)
Text2 = Format(PI * r ^ 2, \End Sub
Private Sub Command2_Click() r = Val(Text1)
Text3 = Format(2 * PI * r, \End Sub
Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then
MsgBox \输入有非数字字符，请重新输入\ Text1 = \
Text1.SetFocus End If End Sub
遇到的主要问题及分析：
17
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Visual Basic实验-答案(3)(4)在线全文阅读。
相关推荐：