vb大作业各种小程序编程(急求一vb小程序,校选的期末作业,简单点的,自己做的就好,不胜感激!)

本文目录
- 急求一vb小程序,校选的期末作业,简单点的,自己做的就好,不胜感激!
- 如何使用VB编写一个简单的小程序
- 高分求用VB遍写的一个实用小程序
- 适合vb新手做的实用小程序
- 求设计两个vb简单易操作小程序,要有主题,简单一点儿的~适合大一的~
- 用VB6.0做一个简易的小程序当作业,要算分数的跪求高手
- 用vb编一段小程序,有追加分100分
- 如何编写一套完整的VB小游戏程序
急求一vb小程序,校选的期末作业,简单点的,自己做的就好,不胜感激!
VB简单计时代码:
代码如下:
Dim s
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Text2.Text = ""
Text3.Text = "0"
s = 0
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Form1.Caption = "综合应用"
Label1.Caption = "现在时间:"
Label2.Caption = "计时(秒):"
Label3.Caption = "总用时(秒):"
Text1.Text = ""
Text2.Text = ""
Text3.Text = "0"
Command1.Caption = "开始"
Command2.Caption = "停止"
Command3.Caption = "重新计时"
Command4.Caption = "关闭"
s = 0
Timer1.Interval = 1000
Timer1.Enabled = False
Timer2.Interval = 1000
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
s = s + 1
Text2.Text = s
Text3.Text = s
End Sub
Private Sub Timer2_Timer()
Text1.Text = Now
End Sub
如何使用VB编写一个简单的小程序
在桌面上,鼠标左键双击程序,在打开的VB6主界面上,左边是工具菜单栏,单击标签按钮,在Form1窗口上,绘制出一Label1,然后在其属性窗口上改个名字,如Caption为第一数,如下图所示。
接着,用同样的方法,在Form1窗口上绘制出第二数,并且在左边工具菜单栏,单击文本框按钮,并绘制出来。在文本框属性栏的Text属性上,将其Text1删除,也就是清空数据,如下图所示。
然后,反复用第一步骤和第二步骤做成如图所示的界面来,学习需要反复练习,在练习中不断进步。这里是做简单的加法程序,如下图所示。
接着,加法程序的界面做好后,还不能执行加法运算,必须还要在Form1窗口上绘制出一个命令按钮来,在左边工具菜单栏,单击命令按钮,并绘制出来。然后给其属性窗口下Caption改名为计算,如下图所示。
然后,程序看起来是做好了,单击如图所示的运行按钮,弹出自己做出的Form1窗口,输入数字3和6,然后单击计算。可是结果并没有出现,如下图所示。
最后,前面5个步骤只是做了程序的界面,想要程序出结果,那必须加些代码了,既然是简单程序,只加一行代码就可以了。双击命令按钮,在代码窗口中输入如下:Text3.Text = Val(Text1.Text) + Val(Text2.Text)后,再单击运行,输入数字,单击计算,此时就出现结果了,如下图所示。
高分求用VB遍写的一个实用小程序
帮你写了个宏,执行时,完全满足你的要求。
第三次改了一下,还有什么问题,欢迎提出:
Sub Zh()
Dim S, i As Integer, K(), E As String, Sw As Integer, U As String
d = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
w = Array("", "万", "亿")
R = Range("A1").Value
If InStr(R, ".") 《》 0 Then
U = Right(R, Len(R) - InStr(R, "."))
Do While Len(U) 》 2
U = CStr((Val(U) + 5) \ 10)
Loop
R = Int(R)
End If
If Not IsNumeric(R) Then Exit Sub
i = Len(Int(R))
i = i \ 4
ReDim K(i)
For i = UBound(K) To LBound(K) + 1 Step -1
K(i) = Right(R, 4)
E = T(K(i)) + w(Sw) + E
Sw = Sw + 1
R = Left(R, Len(R) - 4)
Next i
K(i) = R
If K(i) 《》 "" Then
E = T(K(i)) + w(Sw) + E
End If
E = E + "元"
If Len(U) = 2 Then
E = E + d(Val(Left(U, 1))) + "角" + d(Val(Right(U, 1))) + "分"
ElseIf Len(U) = 1 Then
E = E + d(Val(Left(U, 1))) + "角"
Else
E = E + "整"
End If
Range("A2").Value = E
End Sub
Function T(A) As String
d = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
S = Array("", "拾", "百", "千")
n = Len(A)
For i = 1 To n
T = d(Val(Mid(A, (n - i + 1), 1))) + S(i - 1) + T
Next i
End Function
适合vb新手做的实用小程序
计算器。
就如图实现简单的计算功能。
或者简单的时钟。。
计算器、记事本、拼图、规则复杂一点的猜数字、简单通讯录……
百度知道上被人问烂了的几个程序
求设计两个vb简单易操作小程序,要有主题,简单一点儿的~适合大一的~
模仿老虎机跑马灯 选号程序给你一个
代码:
Dim I As Integer
Dim P As Integer
Private Sub Command1_Click()
LA = TE + LA
End Sub
Private Sub Command6_Click()
I = 1
Timer1.Enabled = True
Randomize
P = Int(29 - 21 - 1) * Rnd + 21
Select Case P
Case 23
TE = 1
Case 24
TE = 2
Case 25
TE = 3
Case 26
TE = 4
Case 27
TE = 5
Case 28
TE = 6
Case 22
TE = 8
Case 21
TE = 7
End Select
End Sub
Private Sub Timer1_Timer()
If I 《 P Then
I = I + 1
Select Case I
Case 1
Me.Command2.BackColor = &HFF&
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 5
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFF&
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 7
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFF&
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 8
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFF&
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 9
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFF&
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 10
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFF&
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 11
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command6.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFF&
Me.Command10.BackColor = &HFFFFFF
Case 12
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFF&
Case 13
Me.Command2.BackColor = &HFF&
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 14
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFF&
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 15
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFF&
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 16
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFF&
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 17
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFF&
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 18
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFF&
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 19
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFF&
Me.Command10.BackColor = &HFFFFFF
Case 20
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFF&
Case 21
Me.Command2.BackColor = &HFF&
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command6.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 22
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFF&
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 23
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFF&
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 24
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFF&
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 25
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFF&
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 26
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFF&
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFFFFFF
Case 27
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFF&
Me.Command10.BackColor = &HFFFFFF
Case 28
Me.Command2.BackColor = &HFFFFFF
Me.Command3.BackColor = &HFFFFFF
Me.Command4.BackColor = &HFFFFFF
Me.Command5.BackColor = &HFFFFFF
Me.Command6.BackColor = &HFFFFFF
Me.Command7.BackColor = &HFFFFFF
Me.Command8.BackColor = &HFFFFFF
Me.Command9.BackColor = &HFFFFFF
Me.Command10.BackColor = &HFF&
End Select
Dim PP As Integer
PP = Int(19 - 1 - 1) * Rnd + 11
Text1 = PP
End If
End Sub
用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
Text1.Text = ""
x = False
Text1.Text = Text1.Text + CStr(Index + 1)
Else
Text1.Text = Text1.Text + CStr(Index + 1)
End If
End Sub
Private Sub Command2_Click()
x = True
oper = Int(Text1.Text)
z = "/"
End Sub
Private Sub Command3_Click()
x = True
oper = Int(Text1.Text)
z = "-"
End Sub
Private Sub Command4_Click()
x = True
oper = Int(Text1.Text)
z = "+"
End Sub
Private Sub Command5_Click()
x = True
oper = Int(Text1.Text)
z = "*"
End Sub
Private Sub Command7_Click()
Select Case z
Case "/"
result = CStr(oper / Int(Text1.Text))
Case "-"
result = CStr(oper - Int(Text1.Text))
Case "*"
result = CStr(oper * Int(Text1.Text))
Case "+"
result = CStr(oper + Int(Text1.Text))
End Select
Text1.Text = result
End Sub
Private Sub Command8_Click()
Text1.Text = ""
End Sub
简单的计算器程序自己添加控件
用vb编一段小程序,有追加分100分
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 10
Presskey i
Next
End Sub
Private Sub Presskey(Index As Integer)
Dim t As Single
t = Timer
Do Until Timer - t - 0.5 》 0
DoEvents
Loop
Select Case Index
Case 0
SendKeys " " ’空格键
Case 1
SendKeys "{DOWN}" ’方向键下
Case 2
SendKeys "{ENTER}" ’回车键
Case 3
SendKeys "{LEFT}" ’方向左
Case 4
SendKeys "{LEFT}" ’方向左
Case 5
SendKeys "{ENTER}" ’回车键
Case 6
SendKeys "{ENTER}" ’回车键
Case 7
SendKeys " " ’空格键
Case 8
SendKeys " " ’空格键
Case 9
SendKeys " " ’空格键
Case 10
SendKeys "{ESC}" ’ESC
End Select
End Sub
如何编写一套完整的VB小游戏程序
楼上的朋友所说个人认为一些纰漏.
第一,不要在设计时经常改动设计方案,否则工期会延误. 难道在编码和设计的时候经常改动? 在设计的时候改动与后期的改动谁会带来比较大的损失呢?况且软件危机是怎样产生的? 这是软件工程出现的原因吧,所以首先分析好你的游戏框架,多花时间分析上!.
第二,网络版则必须写 软件设计概要书 和 用户使用说明书...任何上规模的软件项目可以不写说明书? 具体点吧,保留下最本质的数据流图,更多的文档资料所带来的结果就是让你的软件更容易维护,即可测性,可修改性,可理解性都必须具备..
如果只是几百或者1千行并且不是太复杂的小游戏的话,并且不希望非常大的扩展下去,那就随便画画草图脑子有个大概思路就差不多可以开始了.
如果楼主想用vb做,那可能不太合适,本人也只是用过它做过一些俄罗斯方块,贪食蛇之类的小游戏还有类似斗地主那样的牌类游戏.
简单的说吧,首先你要知道你想做什么,并且可以用VB实现吗?如果可以继续分析,怎样做? 用什么样的技术?等确定了之后,大概的将编码写在纸上,如果自己觉得逻辑合适就将其输入电脑运行之,并在输入电脑运行之后不段调试尽量多找一些难发现的错误..

更多文章:
在from子句中可以出现(如何在from 子句中嵌套查询下面的语句在access中出错!)
2026年10月11日 05:20
countif函数统计个数怎么用(countif函数怎么用 详解Excel中countif函数的使用方法)
2026年10月11日 03:30
正则匹配数字之前的字符(正则表达式如何匹配前面是数字、中间是“/”、后面也是数字,就像2/3专业的模式)
2026年10月11日 03:00
orlnsertbootmediinselected(我电脑开机显示这个是什么意思or insert boot media in select)
2026年10月10日 23:00
display的用法(display是什么意思 详解display的含义和用法)
2026年10月10日 22:00






