顺序结构程序设计实验：字符图形显示与输入输出操作.pdfVIP

实验四顺序结构的程序设计

一、实验目的

1.理解顺序结构的程序流程及程序设计方法；

2.熟练掌握赋值语句的使用；

3.掌握使用简单的框的方法，学会利用InputBox、MsgBox函数或者文本

框等控件做简单的输入输出操作；

4.养成良好的编程习惯，会用注释；

5.熟练掌握窗体的PRINT和CLS方法。

二、实验内容

略

三、主要实验步骤及实验结果

1.写一个程序，在窗体上显示出如右图的字符图形：

PrintTab(1);****

PrintTab(2);****

PrintTab(3);****

PrintTab(4);****

2.通过InputBox让用户输入一个名字，如“Apple”，利用PRINT语句末尾

的标点把这个名字在窗体上以下列三种方式重复显示出来。

情况一：显示“AppleAppleApple”；

情况二：显示“AppleAppleApple”；

情况三：显示如右分三行显示

实验程序设计的四顺序结构

一、实验目的

1.理解程序流程的顺序结构及程序设计方法；2.掌握赋值语句的使用；

3.InputBox、MsgBox函数或者文本框等控件做简单的输入输出操作；4.养

成良好的编程习惯，会用注释；5.掌握掌握表格的PRINT和CLS方法。

二、实验内容

略

三、主要实验步骤及实验结果

1.编写一个程序，在表格上显示出如右图的字符图形：

打印选项卡(1)；

****打印选项卡(2);

****打印选项卡(3);

****打印选项卡(4);

“****”

2.输入框的标记点将该名称放在表格上，并以下面的透明方式重复显示出来。

情况一：显示“AppleAppleApple”；情况二：

显示“AppleAppleApple”

；

情况三：显示如右分三行显示

Dimx$

x=InputBox(请输入print内容)

Printx;x;x

Printx,x,x

PrintxvbCrLfxvbCrLfx

3.改写上题的程序，输入名字后，用MsgBox代替Print显示上面三种结果。

[提示]换行符号为Chr(13)+Chr(10)或vbCrlf。

MsgBoxxxx

MsgBoxxxx

MsgBoxxvbCrLfxvbCrLfx

4.输入一元二次方程的系数a、b、c（注意应满足b^2-4*a*c=0，计算并输出

一元二次方程的两个根x1、x2，界面请自己考虑。

Dima!,b!,c!,x1!,x2!

a=Val(Text1.Text)

b=Val(Text2.Text)

c=Val(Text3.Text)

Ifa=0Then

x1=-c/b

MsgBoxa=0,方程不是一元二次方程，只有一个根x1

Else

Ifb^2-4*a*c=0Then

x1=(-b+Sqr(b^2-4*a*c))/(2*a)

x2=(-b-Sqr(b^2-4*a*c))/(2*a)