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

:暂无数据 2026-10-03 14:50:01 :0

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

本篇文章给大家谈谈vb大作业各种小程序编程,以及急求一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实现吗?如果可以继续分析,怎样做? 用什么样的技术?等确定了之后,大概的将编码写在纸上,如果自己觉得逻辑合适就将其输入电脑运行之,并在输入电脑运行之后不段调试尽量多找一些难发现的错误..

关于本次vb大作业各种小程序编程和急求一vb小程序,校选的期末作业,简单点的,自己做的就好,不胜感激!的问题分享到这里就结束了,如果解决了您的问题,我们非常高兴。

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

本文编辑:admin

更多文章:


全民体育欧冠直播(电竞发展成为全民体育活动,合适吗)

全民体育欧冠直播(电竞发展成为全民体育活动,合适吗)

各位老铁们好,相信很多人对全民体育欧冠直播都不是特别的了解,因此呢,今天就来为大家分享下关于全民体育欧冠直播以及电竞发展成为全民体育活动,合适吗的问题知识,还望可以帮助大家,解决大家的一些困惑,下面一起来看看吧!

2026年10月11日 11:10

withdrawal(withdrawal是什么意思)

withdrawal(withdrawal是什么意思)

今天给各位分享withdrawal是什么意思的知识,其中也会对withdrawal是什么意思进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!

2026年10月11日 07:00

根据流程图怎么编写程序(用c语言根据流程图写程序)

根据流程图怎么编写程序(用c语言根据流程图写程序)

大家好,今天小编来为大家解答以下的问题,关于根据流程图怎么编写程序,用c语言根据流程图写程序这个很多人还不知道,现在让我们一起来看看吧!

2026年10月11日 06:00

在from子句中可以出现(如何在from 子句中嵌套查询下面的语句在access中出错!)

在from子句中可以出现(如何在from 子句中嵌套查询下面的语句在access中出错!)

大家好,关于在from子句中可以出现很多朋友都还不太明白,不过没关系,因为今天小编就来为大家分享关于如何在from 子句中嵌套查询下面的语句在access中出错!的知识点,相信应该可以解决大家的一些困惑和问题,如果碰巧可以解决您的问题,还望

2026年10月11日 05:20

countif函数统计个数怎么用(countif函数怎么用 详解Excel中countif函数的使用方法)

countif函数统计个数怎么用(countif函数怎么用 详解Excel中countif函数的使用方法)

其实countif函数统计个数怎么用的问题并不复杂,但是又很多的朋友都不太了解countif函数怎么用 详解Excel中countif函数的使用方法,因此呢,今天小编就来为大家分享countif函数统计个数怎么用的一些知识,希望可以帮助到大

2026年10月11日 03:30

正则匹配数字之前的字符(正则表达式如何匹配前面是数字、中间是“/”、后面也是数字,就像2/3专业的模式)

正则匹配数字之前的字符(正则表达式如何匹配前面是数字、中间是“/”、后面也是数字,就像2/3专业的模式)

本篇文章给大家谈谈正则匹配数字之前的字符,以及正则表达式如何匹配前面是数字、中间是“/”、后面也是数字,就像2/3专业的模式对应的知识点,文章可能有点长,但是希望大家可以阅读完,增长自己的知识,最重要的是希望对各位有所帮助,可以解决了您的问

2026年10月11日 03:00

register语言学(register语言学)

register语言学(register语言学)

“register语言学”相关信息最新大全有哪些,这是大家都非常关心的,接下来就一起看看register语言学(register语言学)!

2026年10月11日 01:40

系统架构设计师可以直接考吗(学生可以报名系统架构设计师吗)

系统架构设计师可以直接考吗(学生可以报名系统架构设计师吗)

“系统架构设计师可以直接考吗”相关信息最新大全有哪些,这是大家都非常关心的,接下来就一起看看系统架构设计师可以直接考吗(学生可以报名系统架构设计师吗)!

2026年10月11日 01:00

orlnsertbootmediinselected(我电脑开机显示这个是什么意思or insert boot media in select)

orlnsertbootmediinselected(我电脑开机显示这个是什么意思or insert boot media in select)

大家好,如果您还对orlnsertbootmediinselected不太了解,没有关系,今天就由本站为大家分享orlnsertbootmediinselected的知识,包括我电脑开机显示这个是什么意思or insert boot med

2026年10月10日 23:00

display的用法(display是什么意思 详解display的含义和用法)

display的用法(display是什么意思 详解display的含义和用法)

大家好,如果您还对display的用法不太了解,没有关系,今天就由本站为大家分享display的用法的知识,包括display是什么意思 详解display的含义和用法的问题都会给大家分析到,还望可以解决大家的问题,下面我们就开始吧!

2026年10月10日 22:00

最近更新

热门文章

标签列表