电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

VB小程序代码实例VIP专享VIP免费

VB小程序代码实例_第1页
VB小程序代码实例_第2页
VB小程序代码实例_第3页
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 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. 计算存款利息 计算存款利息: ...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部