VB实验一Word格式.docx

VB实验一Word格式.docx

《VB实验一Word格式.docx》由会员分享，可在线阅读，更多相关《VB实验一Word格式.docx（10页珍藏版）》请在冰点文库上搜索。

实验结果：

【请将你的代码粘贴到下面】

【请将你的典型结果的截图粘贴到下面】

【实验2】分别定义八个变量，变量名为：

var1、var2、var3、var4、var5、var6、var7、var8，变量的数据类型依次定义为：

字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。

按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。

（20分）

通过该程序掌握变量的定义、变量名与变量值的含义。

PrivateSubForm_Click（）

Dimvar1AsString

Dimvar2AsInteger

Dimvar3AsLong

Dimvar4AsSingle

Dimvar5AsDouble

Dimvar6AsCurrency

Dimvar7AsBoolean

Dimvar8AsDate

var1="

Helloworld!

"

:

var2=1000

var3=30000:

var4=1.005

var5=3.1415926:

var6=100.1234

var7=True:

var8=#5/1/2015#

Print

Print"

变量名"

;

Tab（15）;

"

var1"

Tab（30）;

var2"

Tab（40）;

var3"

Tab（50）;

var4"

变量值"

var1;

var2;

var3;

var4

变量类型:

TypeName（var1）;

TypeName（var2）;

TypeName（var3）;

TypeName（var4）

var5"

var6"

var7"

var8"

var5;

var6;

var7;

var8

TypeName（var5）;

TypeName（var6）;

TypeName（var7）;

TypeName（var8）

EndSub

PrivateSubForm_Load（）

Form1.Caption="

变量的定义和赋值"

Form1.FontSize=13

【实验3】编写程序，其功能为输入三角形的三边，求三角形的面积。

计算公式为：

S=（a+b+c）/2，面积=sqr（s*（s-a）*（s-b）*（s-c））（20分）

通过该程序掌握计算类程序的结构、赋值语句的使用

程序界面如下所示

PrivateSubCommand1_Click（）

a=Val（Text1.Text）

b=Val（Text2.Text）

c=Val（Text3.Text）

s=（a+b+c）/2

Text4.Text=Sqr（s*（s-a）*（s-b）*（s-c））

【实验4】编写如图2-10所示的一个求“倒序数”的程序。

“倒序数”指的是：

如产生的数为“1234”，那么与之对应的倒序数就是“4321”。

点击“生成”按钮，分别在文本框一中随机生成一个2位整数，在文本框二中随机生成一个3位整数，在文本框三中随机生成一个4位整数。

然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。

通过该程序掌握常见函数的使用

Text1.Text=Int（Rnd*（99-10+1））+10

Text2.Text=Int（Rnd*（999-100+1））+100

Text3.Text=Int（Rnd*（9999-1000+1））+1000

PrivateSubCommand2_Click（）

Text4.Text=Right（Text1,1）+Left（Text1,1）

Text5.Text=Right（Text2,1）+Mid（Text2,2,1）+Left（Text2,1）

Text6.Text=Right（Text3,1）+Mid（Text3,3,1）+Mid（Text3,2,1）+Left（Text3,1）

【实验5】参照图2-15所示的内容，编写一个由Print方法及其相关格式函数进行输出的程序。

使用不同的分隔符（即：

逗号或分号）或者格式输出函数（即：

Tab（）、Spc（）、Format（）、Space（））来控制Print方法输出的格式。

通过该程序掌握print方法及格式函数的使用

No."

Name"

Spc（15）;

Dept."

=========================================="

0001"

Lucy"

Finance"

0002"

Paul"

0003"

Jim"

0004"

Jacob"

0005"

Lily"

Personnel"

0006"

Steven"

0007"

Bruce"

0008"

David"

Technology"

0009"

Gray"

0010"

Kala"

【加分1】超级玛丽游戏，实现变大、变小、左右移动、发射子弹的功能。

（加分20分，最高100分）

通过该程序掌握定时器及三角函数的使用

【加分2】求一元二次方程的根，方程的系数a、b、c使用inputbox函数输入，方程的两个根使用MsgBox语句输出。

（加分10分，最高100分）

通过该程序掌握inputbox和msgbox的使用

Dima%

Dimb%

Dimc%

DimX1!

DimX2!

a=InputBox（"

请输入a的值"

求方程组的根"

）

b=InputBox（"

请输入b的值"

c=InputBox（"

请输入c的值"

X1=Val（-b+Sqr（b^2-4*a*c））/2*a

X2=Val（-b-Sqr（b^2-4*a*c））/2*a

Text2.Text=X1

Text3.Text=X2

MsgBox"

X1="

&

X1&

vbCrLf&

X2="

X2,64,"

方程值"

实验小结

1.遇到的问题：

2.对课程的建议：