用VB6.0做一个简易的小程序。当作业，要算分数的。跪求高手

Public x As Boolean

Public oper As Integer

Public z As String

Public result As String

Private Sub Command1_Click(Index As Integer)

If x Then

Text1Text = ""

x = False

Text1Text = Text1Text + CStr(Index + 1)

Else

Text1Text = Text1Text + CStr(Index + 1)

End If

End Sub

Private Sub Command2_Click()

x = True

oper = Int(Text1Text)

z = "/"

End Sub

Private Sub Command3_Click()

x = True

oper = Int(Text1Text)

z = "-"

End Sub

Private Sub Command4_Click()

x = True

oper = Int(Text1Text)

z = "+"

End Sub

Private Sub Command5_Click()

x = True

oper = Int(Text1Text)

z = ""

End Sub

Private Sub Command7_Click()

Select Case z

Case "/"

result = CStr(oper / Int(Text1Text))

Case "-"

result = CStr(oper - Int(Text1Text))

Case ""

result = CStr(oper Int(Text1Text))

Case "+"

result = CStr(oper + Int(Text1Text))

End Select

Text1Text = result

End Sub

Private Sub Command8_Click()

Text1Text = ""

End Sub

简单的计算器程序自己添加控件

完全按照要求做的~~

Private Sub Command1_Click()

Label1Caption = "中文字体示例"

Label1Font = "宋体"

End Sub

Private Sub Command2_Click()

Label1Font = "楷体_GB2312"

End Sub

Private Sub Command3_Click()

Label1FontBold = True

End Sub

Private Sub Command4_Click()

Label1FontSize = Form1FontSize + 2

End Sub

Private Sub Command5_Click()

Label1FontSize = Form1FontSize - 2

End Sub

Private Sub Command6_Click()

Label1Caption = ""

End Sub

Private Sub Form_click()

End

End Sub

商场搞活动想要制作一个抽奖程序，今天我们就来看看使用vb60制作抽奖小程序的教程。

1、首先启动vb60，执行 文件-新建命令 ，d出新建工程对话框，在该对话框中选择 标准的exe 后点击打开按钮， 进入vb程序主界面。

2、在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽， 调节窗体的大小 ，直至自己满意为止。

3、选择窗体，在其右边的属性中找到 boderstyle属性 ，设置 属性值为none， 接着再找到 startupposition属性 ，修改属性值为2-屏幕中心，再次修改 backcolor属性 值为淡**。

4、在工具箱里选择frame1，然后在窗体上进行拖拽，大小比窗体小一些，并调整其位置，使其居中，在属性窗口找到 backcolor属性 修改其属性值为粉红色，这样设置看起来就有层次感了。

5、在工具箱里双击标签控件两次，在frame1中显示两个标签控件， 修改lable1的caption属性名称为“幸运抽奖”， 修改label2的caption属性为“0”，同时修改这两个标签控件的backcolor属性为粉色，和 frame 控件保持一致。

6、分别选择 label1和label2 ，修改其font属性，打开字体对话框选择字体为王羲之书法字体，字形为常规，字号为三号，点击确定按钮。

7、选择工具箱里按钮控件，连续双击四次，在frame1上显示四个按钮，调整他们在frame1上的位置，使排列整齐，并依次修改四个按钮的caption属性，属性值依次为“ 号码滚动”、“号码停止”、“号码重置”、“退出程序”。

8、接着选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

9、双击号码滚动控件，进入代码编辑区域，对象选择 command1， 过程选择click事件，在其输入代码为

Timer1Enabled = True

主要作用是触发器开始工作。

10、双击号码停止按钮，输入代码为 Timer1Enabled = False ，起到的作用是触发器停止工作。

11、双击号码重置按钮输入代码 为Label1Caption = "0"， 起到的作用是每次号码滚动后都要重新置0让每次抽奖的起始都是一样的。并双击退出程序按钮输入代码为end。

12、代码timer1的代码区域，输入代码为

Randomize

Label1Caption = "幸运中奖的号码是：" & Int(Rnd 64 + 1)

主要功能是使用随机函数产生不同的随机数值

13、代码编程完成后就可以运行调试了，点击启动标志，进行编译，如果出现错误根据错误提示进行修改，并不断调试直至通过达到预期目的为止。提示出现要求对象说明控件名称有错误，修改过来，提示出现子程序未定义则说明函数不对，即系统不能认识的函数，进行修改。

14、调试无误后，你会看到号码在不停的滚动， 点击号码停止即可停止 ，点击号码重置就会出现号码为0，点击退出程序即可界面消失，这说明已经达到所预期的功能了。

15、执行文件-生成抽奖exe，这样经过编译就生成了可执行文件，这样就可以跨平台 *** 作了，不再依赖原始程序。接 着执行文件-保存命令， 把所有的源文件进行保存即可，以方便以后修改使用。

以上就是vb60中设计抽奖器的教程，希望大家喜欢，请继续关注我们。

Private Sub Form_Activate()

'1年期225%，2年期243%，3年期为270%，5年期为288%（不记复利）。今有X元，5年以后使用，共有如下6中存法：

Const x1 As Double = 00225, x2 As Double = 00243, x3 As Double = 0027, x5 As Double = 00288

Dim x As Double

x = Val(InputBox(""))

Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)

Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)

Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)

Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double

ss = a + a c b

End Function

Private Sub Form_Load()

AutoRedraw = True

End Sub

以上就是关于用VB6.0做一个简易的小程序。当作业，要算分数的。跪求高手全部的内容，包括:用VB6.0做一个简易的小程序。当作业，要算分数的。跪求高手、vb设计一个程序、vb6.0怎么制作一个抽奖小程序 vb6.0抽奖器的制作方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！