end sub
"结束"按钮。
private sub command4_click()
endend sub
"输入"按钮。
private sub command1_click()
static i as integer '静态变量存记录数。
dim j as integer
dim found as boolean
found = false
检查各文本框是否为空'若第(j)个文本框无内容，则利用相应标签的caption属性提示应输入哪一项内容。
if trim( =then
msgbox "请输入" &vbinformation, "提示"
exit sub
end if
if trim( =then
msgbox "请输入" &vbinformation, "提示"
exit sub
end if
if trim( =then
msgbox "请输入" &vbinformation, "提示"
exit sub
end if
if trim( =then
msgbox "请输入" &vbinformation, "提示"
exit sub
end if
for j = 1 to i
if arstu(0, j) =trim( then
found = true
elsefound = false
end if
next j
if not found then ’若数组中没有相同的学号，则将相关信息保存到数组中。
i = i + 1静态变量累加记录数。
redim preserve arstu(3, i) '根据记录数重新定义动态数组第二维上界。
将各文本框的数据存入数组，同时清空文本框以备输入下一记录。
arstu(0, i) =trim(
arstu(1, i) =trim(
arstu(2, i) =trim(
arstu(3, i) =trim(
intnum = i保存记录数。
'焦点返回学号文本框。
else完成如果学号相同，要求用户做出选择是否覆盖，若要覆盖，则更改该学号的相关信息，若不覆盖，则不允许用户将该学号及相关信息输入到数组中的功能》
end if
end sub
"查询"按钮。
private sub command2_click()
if intnum = 0 then exit sub '若记录数为零，退出过程。
dim i as integer, j as integer
if trim( for i = 1 to intnum 若找到，在查询结果文本框显示记录内容并退出本过程。 if arstu(0, i) =trim( then = arstu(0, i) &space(2) &arstu(1, i) &space(2) &arstu(2, i) &space(2) &arstu(3, i) exit sub找到退出。 end if nextelseif 完成若未输入学号，但输入了姓名，则按姓名查找功能》 else '若学号、姓名均未输入。 msgbox "请先输入学号或姓名，再单击""查询""按钮。",vbinformation, "提示" exit sub end if '若未找到。 msgbox "对不起，没有您要查询的学生。",vbinformation, "查询结果" end sub 5．运行程序并调试结果。 1.选择结构编程。 （选做）if语句的嵌套。从键盘输入三个数至变量a、b、c，比较他们的大小并排列，使得a>b>c。 提示 if语句的嵌套。本程序要通过多次两相比较、交换才能实现。 2.循环结构编程。 用do while…loop语句求解：我国有13亿人口，按年增长率0.8%计算，多少年后我国人口将超过16亿。 改写为do until…loop形式。 改写为while wend形式。 这几种循环结构的好处就是，事先可以不用知道循环次数。 提示根据公式16=13(1+0.008)n编程，若解得n值不为整数，则将n取整后，再加1。 private sub form_click() dim human as single ’如果定义human as integer 会怎样？ human = 13 dim i i = 0do while human <=16 i = i + 1 human = human * 1.008 ' i=i+1可以写在后面吗？ loopprint i print human end sub 试着用f8逐步调试，观察结果。在本地窗口和监视窗口中观察数据的变化。 本地窗口是所有变量都在监视中，当变量太多，不好看的时候，用监视窗口。 要看那个变量，选定变量后，右键选择“添加监视”即可。 3数组。 作业：**分析。 利用循环语句通过随机数模拟产生n**票的**，存入数组price（）以及成交量。 在列表框或组合框中显示。然后计算总成交量，以及平均值和高于平均分的**支数，最后在文本框或者标签中输出（支数是一个数，不是所有） 提示：随机数，可以作为一个函数使用，数组中的其他例子可供参考。 格式。randomize rnd()例1 生成100以内的整数。 sub rndex() dim a as integer randomize a=int(rnd()*100) print a end sub 公式×进一步知识。 例2随机生成a到b之间的数即是x属于（a，b） x＝a+(b-a)*ind 例3随机生成a到b之间的整数即是i属于（a，b） i＝int（a+(b-a)*ind+1） 提示，列表框参考数组中的。 注意其中关键的几个属性和方法。其他的属性不用管它。 在实验课的时候检验。 4 学会使用**框，图像框，以及框架和单选和复选框的组合。p127-p139 其他时间：看看老师给出的作业答案：和自己的比较。 有问题随时提出保护现场。 每人在d盘建立自己的文件夹 学号 姓名 如d 00001王菲，所编写的程序文件和实验报告就放在这个文件夹里，成果提交时将文件夹压缩传到ftp 218.199.228.243 高级语言程序设计 实验四。实验目的。1 掌握数组的定义 引用 初始化 输入和输出的方法。2 学习使用数组实现求最值 排序 数据... 一 实验目的。数组是有序数组的集合，本实验通过上机掌握一维数组和二维数组的使用，以及字符串处理函数的使用方法。二 实验内容。1.从键盘上输入10个学生的数学成绩，计算出平均成绩，然后输出平均成绩和大于平均成绩的全部成绩。include void main int a 10 i float sum 0... 淮海工学院计算机工程学院。实验报告书。课程名 c 程序设计 题目数组。班级。学号。姓名。1 实验内容或题目。1 上机调试p144例题5.6，将运行结果截图拷贝 2 上机调试p145例题5.7，输入10个整数，将运行结果截图拷贝。3 编程 p162 第9题。要求通过键盘输入年月日，计算该日是该年的第几...实验4数组
实验4数组
实验4 数组