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

上机报告
课程名称计算机程序设计基础(VB)
专业班级
姓名
学号
上机题目
循环结构实验
实验室
机房
同组人数
1
实验时间
年月日
成绩
指导教师
一、实验目的
。
。
二、实验内容(均要求给出运行结果)
(一)程序改错
第一题
【实验要求】
本程序功能是鼠标单击窗体时弹出两次输入框,依次输入两个数m和n,然后求这两个数的最大公约数,并在窗体上输出。其运行界面如图4-12所示。
图4-12 运行界面
【实验步骤】
,无。
2. 编写事件代码:
Option Explicit
Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer
m = InputBox("输入m的值:")
n = InputBox("输入n的值:")
Do While n <> 0
'**********FOUND**********
r = m / n
m = n
'**********FOUND**********
n = m
Loop
'**********FOUND**********
Print "两数的最大公因子为:"; n
End Sub
运行界面及程序清单:
第二题
【实验要求】
用InputBox函数输入一个字符串,编写程序按与输入的字符相反的次序用Msgbox函数输出这个字符串。如输入字符串为"abcdefgh",则输出为"hgfedcba"。运行界面如图4-13所示。

图4-13 运行界面
【实验步骤】
,见表4-12:
表4-12 对象属性设置
对象
属性
属性值
Command1
Caption
Run
2. 编写事件代码:
Option Explicit
Private mand1_Click()
Dim pristr As String, outstr As String
Dim i As Integer
pristr = InputBox("please input a string")
'**********FOUND**********
For i = 0 To Len(pristr)
'**********FOUND**********
outstr = outstr + Mid(pristr, Len(pristr) - i)
Next i
'**********FOUND**********
MsgBox outstr, , "The Output Result "
End Sub
运行界面及程序清单:
(二)程序填空
第一题
【实验要求】
本程序将利用文本框txtInput输入的一行字符串中的所有字母加密,鼠标单击窗体,加密结果在文本框txtCode中显示。加密方法如下:将每个字母的序号移动5个位置,即"A"->"F","a"->"f","B"->"G"......"Y"->"D","Z"->"E"。运行界面如图4-14所示。
图4-14 运行界面
【实验步骤】
1.