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抽奖器的制作方法等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)