实验报告。
实验目的：1) 掌握for next 循环的使用。
2) 掌握while-wend循环的使用。
3) 掌握do-loop循环的使用。
实验内容：1) 在名称为form1的窗体上画一个命令按钮，名称为cmd1，标题属性为“计算”。要求单击命令按钮的时候在窗体上输出1＋3＋5＋….99的值。
要求：窗体名称保存为工程名保存为。
程序**：private sub cmd1_click()
for i = 1 to 99 step 2
s = i + s
next i
print s
end sub
2) 已知m=11nn。单击命令按钮，在窗体上输出m不大于200000时，m和n的最大值的值。
要求：。窗体名称保存为工程名保存为。
程序**：private sub command1_click()
m = 1do
n = n + 1
a = n ^ n
m = m * a
b = n + 1) ^n + 1)
c = m * b
if 200000 < c and 200000 > m then
exit do
end if
loop until m = 200000
print m, n
end sub
3) 在名称为form1的窗体上画一个命令按钮，名称为cmd1，标题属性为“计算”。在“除数”框中选择一个单选按钮，然后单击命令按钮，将第一个大于文本框中的正整数、并且能够被所选除数整除的数打印在窗体上。
要求：。窗体名称保存为工程名保存为。
程序**：private sub cmd1_click()
a = if = true then
b = elseif = true then
b = elseif = true then
b = end if
doa = a + 1
if a mod b = 0 and a > 0 then
exit do
end if
loopprint a
end sub
4) 在名称为form1的窗体上画一个命令按钮，名称为cmd1，标题属性为“计算”。单击命令按钮的时候，任意输一个字符串，分别统计该字符串中的字母、数字、空格和其他字符的个数。
要求：。窗体名称保存为工程名保存为sy4-4vbp。
程序**：private sub cmd1_click()
a = len(
c = 0d = 0
e = 0f = 0
for i = 1 to a
b = mid( i, 1)
if (b <=z" and b >=a") or (b <=z" and b >=a") then
c = c + 1
elseif asc(b) <57 and asc(b) >48 then
d = d + 1
elseif b = then
e = e + 1
elsef = f + 1
end if
next i
print "字母个数=";c, "数字个数=";d, "空格个数=";e, "其他字符个数=";f
end sub
5) 在名称为form1的窗体上画一个命令按钮，名称为cmd1，标题属性为“计算”。单击命令按钮时候任意输入一个字符串，判断该字符串是否为回文。
要求：。窗体名称保存为sy4-5frm，工程名保存为。
程序**：private sub cmd1_click()
a = len(
for i = 1 to a
b = mid( i, 1)
c = mid( a - i + 1, 1)
if b <>c then
print "不是回文"
exit for
end if
next i
if i > a then
print "是回文"
end if
end sub
VB课程设计之数组
实验报告。实验目的 1 掌握静态数组和动态数组定义及使用。2 掌握数组元素的引用，数组的输入和输出。3 掌握 控件数组 的使用。实验内容 1 名称为form1的窗体上有一个命令按钮，请单击命令按钮，利用一维数组，统计一个班20名学生成绩0 59，60 69，70 79，80 89，90 100各分数...
VB课程设计
在本系统的设计中，主要实现如下一些功能 学习 测试 成绩统计与分析。其中，学习 部分要求教100以内的加 减 乘和除 测试 模块要求随机给出参与运算的数及运算类型，并判断用户的答案，测试完给出得分 成绩统计与分析 模块能够统计成绩各种运算的平均成绩，并画出成绩分布的曲线图或柱状图。欢迎界面 登录界面...
VB课程设计
基于vb的温湿度测试分析系统 1 概述。高精度的温湿度测试计与电脑等上位机相连，发挥电脑的数字处理运算的优势，对校验数据进行采集 智能修正 运算等，最后得出校验误差等结果并打印出校验单，省去人工计算 填表等麻烦。本温湿度测试分析系统设计，要求高精度的温湿度测试计通过rs 232串口与上位机电脑相连，...