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
print
print "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
简单的vb程序代码 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);"籍贯"
Print
Print "张得功";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()
Form1.Caption="框架用法示例"
Command1.Caption="确定"
Command2.Caption="结束"
Frame1.Caption="字体类型"
Frame2.Caption="字体大小"
Option1.Caption="魏碑"
Option2.Caption="幼圆"
Option3.Caption="16"
Option4.Caption="24"
Text1.Text="Visual Basic 程序设计"
End Sub
Private Sub Command1.Click_()
If Optoion1 Then
Text1.FontName="魏碑"
Else
Text1.FontName="幼圆"
End IF
If Option3 Then
Text1.FontSize=16
Else
Text1.FontSize=24
End If
End Sub
Private Sub Command2.Click_()
End
End Sub
5. 计算存款利息
计算存款利息:
本金p为10000,年利率为0.125,每年计息一次,求10年的本利和是多少。
Sub Form_Click()
Dim p As Currency
p=10000:r=0.125
t=1
Again
If t>10 Then GoTo 100
i=p*r
p=p+i
t=t+1
GoTo Again
100
Print p
End Sub
说明:这里的“Again:”是标号,“100”是行号。
6. 交换两个列表框的项目
交换两个列表框的项目。其中一个列表框的项目按字母升序排列,另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时,该项目从列表框中消失,并出现在在另一个列表框中:
Private Sub Form_Load()
List1.FontSize=14
List2.FontSize=14
List1.AddItem "IBM"
List1.AddItem "Compad"
List1.AddItem "HP"
List1.AddItem "FUJI"
List1.AddItem "Digital"
List1.AddItem "长城"
List1.AddItem "联想"
List1.AddItem "Canon"
List1.AddItem "四通"
List1.AddItem "Acer"
List1.AddItem "Nec"
List1.AddItem "NCR"
End Sub
Private Sub List1_DbClick()
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub
Private Sub List2_DbClick()
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End Sub
7. 交换图片
交换两个图片框中的图形:
在窗体上建立三个图片框Picture1、Picture2、Picture3,其中两个在上,一个在下。
Private Sub Form_Click()
'交换位图
Picture3.Picture=Picture1.Picture
Picture1.Picture=Picture2.Picture
Picture2.Picture=Picture3.Picture
'把第三个图片框设置为空
Picture3.Picture=LoadPicture()
End Sub
Private Sub Form_Load
'装入位图
Picture1.Picture=LoadPicture _
("C:\Documents and Settings\All Users\Documents\My Pictures\1.jpg") '可自行改变路径
Picture2.Picture=LoadPicture _
("C:\Documents and Settings\All Users\Documents\My Pictures\2.jpd") '可自行改变路径
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
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论