vb实验报告实验6--循环结构.pdf

vb实验报告实验6--循环结构--

上机报告

课程名称计算机程序设计基础(VB)
专业班级
姓名
学号

vb实验报告实验6--循环结构--
vb实验报告实验6--循环结构--

上机题目循环结构实验实验室机房
同组人数1实验时间年月日
成绩指导教师
一、实验目的
1．掌握Do循环语句结构及应用。
2．掌握For循环语句结构及应用。
二、实验内容（均要求给出运行结果）

（一）程序改错

第一题

【实验要求】

本程序功能是鼠标单击窗体时弹出两次输入框，依次输入两个数m和n，然后求这两个
数的最大公约数，并在窗体上输出。其运行界面如图4-12所示。

图4-12运行界面
【实验步骤】
1．主要属性设置，无。
2.编写事件代码：
OptionExplicit
PrivateSubForm_Click()
DimmAsInteger,nAsInteger,rAsInteger
m=InputBox(输入m的值：
n=InputBox(输入n的值：
DoWhilen<>0
'**********FOUND**********
r=m/n
m=n
'**********FOUND**********
n=m
Loop
'**********FOUND**********
Print两数的最大公因子为：;n
EndSub

运行界面及程序清单：

vb实验报告实验6--循环结构--
vb实验报告实验6--循环结构--

第二题

【实验要求】

用InputBox函数输入一个字符串，编写程序按与输入的字符相反的次序用Msgbox函数
输出这个字符串。如输入字符串为，则输出为。运行界面如图4-13所示。

图4-13运行界面
【实验步骤】

1．主要属性设置，见表4-12：
表4-12对象属性设置
对象属性属性值

Command1CaptionRun
2.编写事件代码：
OptionExplicit
PrivateSubCommand1_Click()
DimpristrAsString,outstrAsString
DimiAsInteger
pristr=InputBoxpleaseinputastrin)
'**********FOUND**********
Fori=0ToLen(pristr)
'**********FOUND**********
outstr=outstr+Mid(pristr,Len(pristr)-i)
Nexti
'**********FOUND**********
MsgBoxoutstr,,heOutputResult
EndSub

运行界面及程序清单：

（二）程序填空

vb实验报告实验6--循环结构--
vb实验报告实验6--循环结构--

第一题

【实验要求】

本程序将利用文本框txtInput输入的一行字符串中的所有字母加密，鼠标单击窗体，加密
结果在文本框txtCode中显示。加密方法如下：将每个字母的序号移动5个位置，即，
，，。运行界面如图4-14所示。

图4-14运行界面
【实验步骤】

1．主要属性设置，见表4-13：
表4-13对象属性设置
对象属性属性值

名称（Name）txtInput
Text1
Text空

名称（Name）txtCode
Text2
Text空
2.编写事件代码：
PrivateSubForm_Click()
DimstrInputAsString*70'输入字符串
DimCodeAsString*70'加密结果
DimstrTempAsString*1'当前处理的字符
DimiAsInteger
DimLengthAsInteger'字符串长度
DimiAscAsInteger'第i个字Ascii码
'**********SPACE**********
【?】'取字符串
i=1
Code=
'**********SPACE**********
【?】'去掉字符串右边的空格，求真正的长度
DoWhile(i<=Length)
'**********SPACE**********
【?】'取第i个字符
If(strTemp>=AndstrTemp<=Then
iAsc=Asc(strTemp)+5
IfiAsc>Asc(TheniAsc=iAsc-26
Code=Left$(Code,i-1)+Chr$(iAsc)
ElseIf(strTemp>=AndstrTemp<=Then
iAsc=Asc(strTemp)+5

vb实验报告实验6--循环结构--
vb实验报告实验6--循环结构--

IfiAsc>Asc(T