实验报告2Word格式文档下载.docx

实验报告2Word格式文档下载.docx

《实验报告2Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《实验报告2Word格式文档下载.docx（12页珍藏版）》请在冰豆网上搜索。

甘肃政法学院实验管理中心印制

实验题目

顺序结构程序设计

小组合作

姓名

班级

1

学号

一、实验目的

1．掌握表达式、赋值语句的正确书写规则。

2．掌握常用函数的使用。

3．掌握Inputbox与MsgBox的使用

二．实验环境

一台装有MicrosoftVisualStudio2008的计算机。

三、实验内容与步骤

1．分别随机生成3个正整数，其中1个1位数，1个2位数，1个三位数，计算它们的平均值，保留两位小数。

2．编写窗体上有两个命令按钮，第一显示“VB.NET”和图标，第二个显示“画图”的程序

3.利用计算机解决古代数学问题“鸡兔同笼问题”。

既已知在同一笼里有总数M只鸡和兔，鸡和兎的总脚数为N,求鸡和兎各为多少只？

4.编写一个“个人简历表”程序，改程序运行后，单机递交按钮运行在右边显示个人信息，单机重置，清楚所有信息。

5，用单循环显示有规律图形。

6.编译一个进度条随时间减少而减少的程序。

四、实验过程与分析

实验2.1

拖出四个标签，三个文本框，还有三个按钮，修改其属性。

2．对按钮进行编译

产生按钮Randomize（）

TextBox1.Text=Int（Rnd（）*10）

TextBox2.Text=Int（Rnd（）*90+10）

TextBox3.Text=Int（Rnd（）*900+100）

计算按钮DimaAsDouble

a=（Val（TextBox1.Text）+Val（TextBox2.Text）+Val（TextBox3.Text））/3

Label4.Text="

平均值为：

"

+Format（a,"

0.00"

）

结束按钮Me.Close（）

3．运行结果

实验2.7

1.拖出2个按钮，修改属性。

2对按钮编译：

对VB.NET编译Shell（"

D:

\MicrosoftVisualStudio9.0\Common7\IDE\devenv.exe"

对画图编译Shell（"

C:

\windows\system32\mspaint.exe"

3.运行结果：

实验3.5

拖出两个标签和两个文本框，并修改其属性。

进行Label2编译DimxAsInteger

DimyAsInteger

IfVal（TextBox2.Text）Mod2=0AndInt（Val（TextBox2.Text）/Val（TextBox1.Text））>

=2And（Val（TextBox2.Text）/Val（TextBox1.Text））<

=4.0Then

y=Int（TextBox2.Text）/2-Int（TextBox1.Text）

x=Int（TextBox1.Text）-y

Label2.Text="

"

+Str（x）+"

+Str（y）

Else

MsgBox（"

输入不符求解条件，请重新输入"

48,"

运行结果：

输入有误时

正确运行结果

实验3.11

在窗体中安题目要求添加控件，修改其属性。

对递交编译：

DimxbAsString="

DimxlAsString="

DimzyAsString="

DimahAsString="

IfRadioButton1.Checked=TrueThen

xb="

男"

ElseIfRadioButton2.Checked=TrueThen

女"

EndIf

IfRadioButton3.Checked=TrueThen

xl="

大专"

ElseIfRadioButton4.Checked=TrueThen

本科"

ElseIfRadioButton5.Checked=TrueThen

研究生"

IfRadioButton6.Checked=TrueThen

zy="

教师"

ElseIfRadioButton7.Checked=TrueThen

医生"

ElseIfRadioButton8.Checked=TrueThen

公务员"

IfCheckBox1.Checked=TrueThen

ah="

旅游"

+"

Else:

ah=ah

IfCheckBox2.Checked=TrueThen

ah=ah+"

体育"

IfCheckBox3.Checked=TrueThen

音乐"

IfCheckBox4.Checked=TrueThen

美食"

EndIf

RichTextBox1.Text=Space（20）+"

简历"

+vbCrLf+"

+TextBox1.Text+vbCrLf+"

年龄:

+TextBox2.Text+vbCrLf+"

性别：

+xb+vbCrLf+"

学历：

+xl+vbCrLf+"

职业：

+zy+vbCrLf+"

爱好：

+ah

对重置编译RichTextBox1.Text="

对年龄编译IfNotIsNumeric（TextBox2.Text）Then

年龄必须为数字"

警告"

TextBox2.Text="

运行结果

实验4.1

按要求拖出必要控件，修改属性。

对确定按钮被编译Label1.Text="

DimsAsString="

★"

DimiAsInteger

Fori=0To15

Label1.Text=Label1.Text+Space（30-2*i）+StrDup（2*i+1,s）+Space（60-4*i）+vbCrLf

Nexti

运行结果:

实验4.10

1.安实验要求在窗体中添加必要控件，修改属性

对time-click编译：

TextBox1.Text="

+Str（T\60）+"

:

+Str（TMod60）

ProgressBar1.Value=T

T=T-1

IfT<

0Then

Timer1.Enabled=False

EndIf

对文本框编译IfAsc（e.KeyChar）=13Then

T=Val（TextBox1.Text）*60

ProgressBar1.Minimum=0

ProgressBar1.Maximum=T

Timer1.Enabled=True

五、实验总结

在本次实验中出现了很多的错误，有些函数还没弄清楚，在问同学后最终了解了表达式，以及正确书写赋值语句。

并且掌握常用函数的使用和Inputbox与MsgBox的使用。

在完成本次试验后感觉自己在VB.NET中更进一步。