实验报告。
实验目的：1) 掌握静态数组和动态数组定义及使用。
2) 掌握数组元素的引用，数组的输入和输出。
3) 掌握“控件数组”的使用。
实验内容：1) 名称为form1的窗体上有一个命令按钮，请单击命令按钮，利用一维数组，统计一个班20名学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数。
要求：（1）学生成绩通过随机函数rnd产生，先输出同学成绩（每行5个），后输出统计结果。
2）用option base 1定义数组下界。
3）窗体文件保存为工程文件保存为。
程序**：option base 1
private sub command1_click()
x1 = 0: x2 = 0: x3 = 0: x4 = 0: x5 = 0
dim a(20) as integer
for i = 1 to 20
a(i) =int(rnd * 101)
if a(i) >0 and a(i) <59 then
x1 = x1 + 1
elseif a(i) >60 and a(i) <69 then
x2 = x2 + 1
elseif a(i) >70 and a(i) <79 then
x3 = x3 + 1
elseif a(i) >80 and a(i) <89 then
x4 = x4 + 1
elseif a(i) >90 and a(i) <100 then
x5 = x5 + 1
end if
next i
for i = 1 to 20
print a(i);
if i mod 5 = 0 then
printend if
next i
print "0-59分的人数"; x1
print "60-69分的人数"; x2
print "70-79分的人数"; x3
print "80-89分的人数"; x4
print "90-100分的人数"; x5
end sub
2) 名称为form1的窗体上有两个框架；三个标签，标签的名称属性如右图所示；三个文本框，如右图所示，从上到下名称属性分别为text1、text2、text3，三个文本框的初始信息为空；三个单选按钮组成的控件数组，名称属性为op1。编写适当的事情过程，先在text1和text2中输入两个数，当选中单选按钮以后，根据所选的单选按钮来计算，并把计算结果显示在text3中。
要求窗体文件保存为工程文件保存为。
程序**：private sub op1_click(index as integer)
a = val(
b = val(
if index = 0 then
= a / b
elseif index = 1 then
= a \ b
elseif index = 2 then
= a mod b
end if
end sub
3) 名称为form1的窗体上有一个命令按钮，单击命令按钮，利用二维数组，将乘法“九九表”存入数组中，并将结果在窗体上显示出来。
要求：（1）要求显示成九行九列的形式。
（2）窗体文件保存为工程文件保存为。
程序**：private sub command1_click()
dim a(1 to 9, 1 to 9) as integer
for i = 1 to 9
for j = 1 to 9
a(i, j) =i * j
next j
next i
for i = 1 to 9
for j = 1 to 9
print a(i, j);
next j
printnext i
end sub
4) 名称为form1的窗体上有一个命令按钮，单击命令按钮随机产生16个[10,99]范围内的随机整数且存放在四行四列的二维数组中，让用户输入两个行数，可以交换这两行的数的位置。
要求：窗体文件保存为工程文件保存为。
程序**：private sub command1_click()
dim a(1 to 4, 1 to 4) as integer
for i = 1 to 4
for j = 1 to 4
a(i, j) =int(rnd * 90 + 10)
next j
next i
for i = 1 to 4
for j = 1 to 4
print a(i, j);
next j
printnext i
m = val(inputbox("请输入要交换的一个行数"))
n = val(inputbox("请输入要交换的另一个行数"))
print "交换后："
for i = 1 to 4
t = a(n, i)
a(n, i) =a(m, i)
a(m, i) =t
next i
for i = 1 to 4
for j = 1 to 4
print a(i, j);
next j
printnext i
end sub
5) 选作书上131页编程题第9题。
程序**：private sub command1_click()
dim a(1 to 6, 1 to 6) as variant
for i = 1 to 6
for j = 1 to 6
if j = 1 or i = j then
a(i, j) =1
elseif i > j then
a(i, j) =a(i - 1, j - 1) +a(i - 1, j)
end if
next j
next i
for i = 1 to 6
for j = 1 to 6
print a(i, j);
next j
printnext i
end sub
VB课程设计之选择结构课程设计 2
实验报告。实验目的 1 掌握for next 循环的使用。2 掌握while wend循环的使用。3 掌握do loop循环的使用。实验内容 1 在名称为form1的窗体上画一个命令按钮，名称为cmd1，标题属性为 计算 要求单击命令按钮的时候在窗体上输出1 3 5 99的值。要求 窗体名称保存为工...
VB课程设计
在本系统的设计中，主要实现如下一些功能 学习 测试 成绩统计与分析。其中，学习 部分要求教100以内的加 减 乘和除 测试 模块要求随机给出参与运算的数及运算类型，并判断用户的答案，测试完给出得分 成绩统计与分析 模块能够统计成绩各种运算的平均成绩，并画出成绩分布的曲线图或柱状图。欢迎界面 登录界面...
VB课程设计
基于vb的温湿度测试分析系统 1 概述。高精度的温湿度测试计与电脑等上位机相连，发挥电脑的数字处理运算的优势，对校验数据进行采集 智能修正 运算等，最后得出校验误差等结果并打印出校验单，省去人工计算 填表等麻烦。本温湿度测试分析系统设计，要求高精度的温湿度测试计通过rs 232串口与上位机电脑相连，...