四、实验步骤。
第一题：1、 在新建的窗体上画1个命令按钮。
2、 命令按钮的属性设置如下：
3、 控件布局如下。
4、 双击命令按钮，打开**窗口并输入如下**：
private sub command1_click()
dim a(3) as integer: dim i as integer
print "输入的数据为"
for i = 0 to 2
a(i) =val(inputbox("请输入：")
print a(i);
nextprint
print "逆序输出为："
for i = 2 to 0 step-1
print a(i);
nextend sub
5、 单击“文件-保存工程”菜单项，以窗体文件名工程文件名文件名保存在d:\vb程序。
第二题：1、 在新建的窗体上画1个命令按钮。
2、 命令按钮的属性设置如下：
3、 控件布局如下。
4、 双击命令按钮，打开**窗口并输入如下**：
private sub command1_click()
dim a(9) as integer: dim i as integer: dim j as integer
print "生成的10个整数为："
for i = 0 to 9
a(i) =int(rnd * 100) +1
print a(i);
nextprint
print "排序后的结果为："
for i = 0 to 9
for j = i + 1 to 9
if a(i) temp = a(j) a(j) =a(i) a(i) =temp end if next j print a(i); next i end sub 5、单击“文件-保存工程”菜单项，以窗体文件名工程文件名文件名保存在d:\vb程序。 第三题：1、在新建的窗体上画1个命令按钮、1个标签和2个文本框。 2、命令按钮、标签、文本框的属性设置如下。 3、控件布局如下。 4、双击命令按钮，打开**窗口并输入如下**： private sub command1_click() z = int(rnd * 29) +1 = zdim a() as long: redim a(z) as long: dim intsum as long if z = 1 then intsum = 1 if z = 2 then intsum = 2 if z <>1 and z <>2 then dim int1 as long: dim int2 as long: dim i as integer: int1 = 1: int2 = 1: intsum = 2 for i = 3 to z a(i) =int1 + int2 int1 = int2 int2 = a(i) intsum = intsum + a(i) nextend if = intsum end sub 5、单击“文件-保存工程”菜单项，以窗体文件名工程文件名文件名保存在d:\vb程序。 五、实验调试与结果分析。 第一题：在求逆序输出步骤时，开始的**为： print "逆序输出为：" for i = 2 to 0 print a(i); next点击“确定”按钮执行**发现错误如下： 即逆序输出没有显示任何结果，经过分析可能的原因是for循环中，step的增量默认是1，所以只能从小到大循环，要倒过来必须对**做如下修改： print "逆序输出为：" for i = 2 to 0 step -1 print a(i); next点击“确认”按钮得到正确的结果： 第二题：为了将随机生成的10个数字进行排序，开始时运用如下**： for i = 0 to 9 for j = i + 1 to 9 if a(i) temp = a(j) a(j) =a(i) a(i) =temp end if next j print a(i); next i 单击命令按钮执行程序发现如下结果： 即结果是将10个数从大到小排列，与题目要求相反，经分析将**做如下更改： for i = 0 to 9for i = 0 to 9 for j = i + 1 to 9for j = i + 1 to 9 if a(i) >a(j) then 或者if a(j) temp = a(jtemp = a(j) a(j) =a(ia(j) =a(i) a(i) =tempa(i) =temp end ifend if next jnext j print a(iprint a(i); next inext i 单击命令按钮得到如下正确的排序结果。 第三题：1、最初在定义变量及变量的类型时如下： dim a() as integer: redim a(z) as integer: dim intsum as integer 结果在单击命令按钮多次后出现了错误提示。 说明计算结果超过了变量类型的最大容量，必须对变量的类型进行更改如下。 dim a() as long: redim a(z) as long: dim intsum as long 更改后无论执行**多少次都不会发生溢出错误。 2、在对fibonancci函数求和的时候，输入如下**： dim int1 as long: dim int2 as long: dim i as integer: int1 = 1: int2 = 1 for i = 3 to z a(i) =int1 + int2 int1 = int2 int2 = a(i) intsum = intsum + a(i) next发现运行后得到的结果如下。 即最终的结果总是比理论结果少2，经分析知道原因应该是忘记给intsum一个初始值，故将**做如下修改： dim int1 as long: dim int2 as long: dim i as integer: int1 = 1: int2 = 1:intsum=2 for i = 3 to z a(i) =int1 + int2 int1 = int2 int2 = a(i) intsum = intsum + a(i) next运行之后便得到了正确的结果。 六、总结。1、数组元素的引用。 数组的引用通常是指对数组元素的引用，其方法是在数组后面的括号中指定下标，例如：x(8)、y(2，3)等。 引用数组时应注意：引用数组元素时，其下标值应在定义数组时所指定的范围内，比如数组arr(10)，他的数组元素的序号范围为0-10之间，如果在**行中要输入arr(15)的值，就会出现“下标越界”的错误。 2、数组元素的输出。 数组元素一般可以通过for循环语句和inputbox函数实现所有的元素输入。 dim clerk(1 to 4 as string static sub form_click() for i=1 to 4 clerk(i)=inputbox(“输入雇员姓名：”，数据输入”) next i 程序运行后，单击窗体，就可以通过inputbox输入数组值。 注意：当用inputbox函数输入数组元素时，如果要输入的是数值数组，则应显示定义数组的类型，或者把输入的数据转化为数值类型。 3、数组元素的输出。 数组元素的输出可以用print方法来实现。 5、 数组元素的复制。 单个数组元素可以像简单变量一样从一个数组复制到另一个数组，例如： dim arr1(3,4),arr2(5,5) arr1(2,3)=arr2(4,2) 6、 动态数组。 当事先不能预料应该为数组声明多少个元素时，可以使用动态数组。 一、 声明动态数组的方法和声明常规数组相似，在声明时要制定数组的名称和数据类型，给数组赋予一个空维数表。 public/private/dim/static 动态数组名（）as 类型名。 二、 声明之后，动态数组还没有任何的元素，要使用它，必须根据具体要求使用redim语句重新定义动态数组的维数、元素个数与下标上下界。 redim 动态数组名（m1 to n1,m2 to n2 …… 课后作业。1 控件的使用户能够移动控件并调节其大小。a.拖曳柄b.标题栏c.工具箱d.工程资源管理器。2 将命令按钮的什么属性设置为true，当用户按下 esc 键时可以激发对应命令按钮的click事件。3 在 编辑中有命令按钮的cmdok click 事件，则命令按钮的名称是什么？4 使用什么方法... 第一题 1 新建一个窗体。2 窗体属性设置如下 3 窗体布局如下。4 双击窗体，打开 窗口并输入如下 private sub form click dim x as integer dim y as integer x 0 y 0 do while x 100 y y x x x 1 looppri... 实验名称 算术运算符的简单应用 实验目的 进一步熟悉visual basic 6.0的友好界面，掌握常用控件的布局与使用，理解并熟练应用八个算术运算符号，并创建一个名为 将一个三位正整数逆序输出 的应用程序。实验要求 在第一个textbox中任意输入一个三位的正整数，在第二个textbox中显示其逆...vb课后作业
VB课后作业
vb实验课后作业