1. 打印负数并分别计算正负数只和：
有如下10个数：
-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值)
打印出其中的每个负数，分别计算并输出正数和负数的和。
程序如下：sub form_click()
dim number as integer
negativesum=0:postivesum=0
for i=1 to 10
number=inputbox("enter data: "
if number<0 then
print number;
negativesum=negativesum+number
else postivesum=postivesum+number
end if
next i
printprint "negativesum=";negativesum
print "postivesum=";postivesum
end sub
2. 打印九九表：
在窗体上打印九九表：
程序如下：print sub form_click()
fontsize=12
print tab(30);"9*9 table"
print:print '输出两个空行。
print "*
for i=1 to 9
print tab(i*6);i; '打印横行序号。
next i
for j=1 to 9
print j打印竖行序号
for k=1 to j
temp=j*k
print tab(k*6);temp;" 打印乘积。
next k
print '输出一个空行
next j
end sub
3. 打印人员名册。
打印人员名册：
private sub form_click()
print:print
fontname="魏碑"
fontsize=16
print "姓名";tab(8);"年龄";tab(16);"职务";tab(24);"单位";tab(32);"籍贯"
printprint "张得功";tab(8);"25";tab(16);"科长";tab(24);"劳动科";tab(32);"北京"
print "李德生";tab(8);"32";tab(16);"处长";tab(24);"科研处";tab(32);"上海"
end sub
4. 单选按钮设置字体类型和大小。
单选按钮设置字体类型和大小：
在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。
编写时间过程如下：
ptivate sub form_load()
"框架用法示例"
"确定""结束"
"字体类型"
"字体大小"
"魏碑""幼圆"
"visual basic 程序设计"
end sub
private sub
if optoion1 then
"魏碑"else
"幼圆"end if
if option3 then
elseend if
end sub
private sub
endend sub
5. 计算存款利息。
计算存款利息：
本金p为10000，年利率为0.125，每年计息一次，求10年的本利和是多少。
sub form_click()
dim p as currency
p=10000:r=0.125
t=1again
if t>10 then goto 100
i=p*rp=p+i
t=t+1goto again
print p
end sub
说明：这里的“again：”是标号，“100”是行号。
6. 交换两个列表框的项目。
交换两个列表框的项目。其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中：
private sub form_load()
"ibm""compad"
"hp""fuji"
"digital"
"长城""联想"
"canon"
"四通""acer"
"nec""ncr"
end sub
private sub list1_dbclick()
end sub
private sub list2_dbclick()
end sub
7. 交换**。
交换两个**框中的图形：
在窗体上建立三个**框picture1、picture2、picture3，其中两个在上，一个在下。
private sub form_click()
'交换位图。
'把第三个**框设置为空。
end sub
private sub form_load
'装入位图。
("c:\documents and settings\all users\documents\my pictures\")可自行改变路径
("c:\documents and settings\all users\documents\my pictures\")可自行改变路径。
end sub
8. 冒泡排序。
从键盘上输入10个整数，用冒泡法排序（bubble sort）法对这十个数从小到大排序：
在窗体上建立一个命令按钮，并把caption属性设置为“click here to start”
编写程序如下：
sub command1_click()
static number(1 to 10) as integer '定义数组number为整形。
msg$="enter number for sort:"
msgstile$="sort demo"
for i%=1 to 10
number(i%)=inputbox(msg$,msgtile$)
next i%
for i%=10 to 2 step -1
for j%=1 to i%-1
if number(j%)=number(j%+1) then
t=number(j%+1)
number(j%+1)=number(j%)
number(j%)=t
end if
next j%
next i%
for i%=1 to 10
print number(i%)
next i%
end sub
9. 判断0~9数据类型--奇数或偶数。
判断字母大小写及0~9数据类型--奇数或偶数：
sub form_click()
dim msg,userinput
msg="please enter a letter or number from 0 though 9."
userinput=inputbox(msg)
if len(userinput)<>0 then
select case asc(userinput) '返回ascii码。
case 65 to 90大写字母。
msg="you entered the uppercase letter"
msg=msg&chr(asc(userinput))&
case 97 to 122小写字母。
msg="you entered the lowercase letter"
msg=msg&chr(asc(userinput))&
case else
msg="you did not enter a letter or a number."
vb递归函数题型分析
递归函数。求最大公约数。public function gcd m as integer,n as integer as integer if m mod n 0 then gcd n elsegcd gcd n,m mod n end if end function private functio...
VB课程设计
在本系统的设计中，主要实现如下一些功能 学习 测试 成绩统计与分析。其中，学习 部分要求教100以内的加 减 乘和除 测试 模块要求随机给出参与运算的数及运算类型，并判断用户的答案，测试完给出得分 成绩统计与分析 模块能够统计成绩各种运算的平均成绩，并画出成绩分布的曲线图或柱状图。欢迎界面 登录界面...
VB课程设计
基于vb的温湿度测试分析系统 1 概述。高精度的温湿度测试计与电脑等上位机相连，发挥电脑的数字处理运算的优势，对校验数据进行采集 智能修正 运算等，最后得出校验误差等结果并打印出校验单，省去人工计算 填表等麻烦。本温湿度测试分析系统设计，要求高精度的温湿度测试计通过rs 232串口与上位机电脑相连，...