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

上机报告

课程名称计算机程序设计基础(VB)

专业班级

姓名

学号

上机题目循环结构实验实验室机房

同组人数1实验时间年月日

成绩指导教师

一、实验目的

1．掌握Do循环语句结构及应用。

2．掌握For循环语句结构及应用。

二、实验内容（均要求给出运行结果）

（一）程序改错

第一题

【实验要求】

本程序功能是鼠标单击窗体时弹出两次输入框，依次输入两个数m和n，然后求这两个

数的最大公约数，并在窗体上输出。其运行界面如图4-12所示。

图4-12运行界面

【实验步骤】

1．主要属性设置，无。

2.编写事件代码：

OptionExplicit

PrivateSubForm_Click()

DimmAsInteger,nAsInteger,rAsInteger

m=InputBox(ox(输入m的值：值：

n=InputBox(ox(输入n的值：值：

DoWhilen0

**********FOUND**********

r=m/n

m=n

**********FOUND**********

n=m

Loop

**********FOUND**********

Printt两数的最大公因子为：：;n

EndSub

运行界面及程序清单：

第二题

【实验要求】

用InputBox函数输入一个字符串，编写程序按与输入的字符相反的次序用Msgbox函数

输出这个字符串。如输入字符串为如输入字符串为，则输出为则输出为。运行界面如图4-13所示。

图4-13运行界面

【实验步骤】

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

表4-12对象属性设置

对象属性属性值

Command1CaptionRun

2.编写事件代码：

OptionExplicit

PrivateSubCommand1_Click()

DimpristrAsString,outstrAsString

DimiAsInteger

pristr=InputBoxoxpleaseinputastrinrin)

**********FOUND**********

Fori=0ToLen(pristr)

**********FOUND**********

outstr=outstr+Mid(pri