当前位置：首页 » APP程序 » 简单vb小程序

简单vb小程序

发布时间: 2021-03-30 18:18:37

㈠ vb简单的小程序

Private Sub Command1_Click()
Dim 金额 As Single
Dim 里程 As Single
Dim 单价 As Single
Me.Cls
金额 = 0
Do'以下5行同样方式用于输入重量
里程 = Val(InputBox("请输入运输里程（km)"))
If 里程 > 0 Then Exit Do
MsgBox "里程数必须是正的！", vbExclamation
Loop
Select Case 里程
Case Is >= 1000
单价 = 15
Case 400 To 1000
单价 = 20
Case 300 To 400
单价 = 22.5
Case 200 To 300
单价 = 25
Case 100 To 200
单价 = 28
Case Else
单价 = 32
End Select
金额 = 单价 * 里程
Print "里程："; 里程
Print "单价："; 单价
Print "吨价："; 金额; "元/吨"'总费用同样计算
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
End Sub

㈡求10个VB简单小程序

第一个
text1="哎，现在的人啊..."
第二个
label1.cpation="能学到什么呢？"
第三个
me.caption="作业还要别人做....."
第四个内
print "这个样子不是在欺容骗自己么"
第五个
msgbox "学不到东西的，这样...."
第六个
do
print "没前途"
loop
第七个
for a = 1 to 9999....99
print "哎~~ "
next a
第八个
if 现在学习=true then 还有得救
第九个
unload me
第十个
end
----------------全写在按钮事件中....够简单了把.....(-_-)|||

㈢ vb做一个简单的小程序

Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

建一个无边框来窗体,复制上面代源码进去就OK了

工程文件给你发过去了后发的是修改过的免去了需要修改路径的麻烦

㈣简单的vb小程序

Private Sub Command1_Click()
Static n As Integer
n = n + 1
a = Text1.Text
b = Text2.Text
If a = "wanglili" And b = "12345" And n <= 3 Then
MsgBox "欢迎您进入本系统！"
n = 0
Else
If n < 3 Then
MsgBox "对不起您不能进入！请重新输入认证信息！内"
Else
MsgBox "对不起，容您不能进入本系统！"
End If
End If
End Sub

Private Sub Command2_Click()
End
End Sub

㈤用VB做一个简单的小程序

PrivateSubCommand1_Click()
Me.Cls
DimNAsInteger,iAsInteger
N=InputBox("n=",,9)
Fori=1To2*N-1
Ifi<=NThen
PrintSpace(N-i)+String(2*i-1,CStr(i))
Else
PrintSpace(N-(2*N-i))+String(2*(2*N-i)-1,CStr(2*N-i))
EndIf
Nexti
EndSub

㈥简单的VB小程序

在窗体添加一个标签，一个计时器控件,
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = "字体随机变色"
End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

㈦小分求超简单的VB小程序！！！！！

框就文本框就可以了。

（Text1，Text2，Text3）

假如公式为：a + b = c

'按钮内容
Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
'a = Text1 , b = Text2 , c = Text3

难的公式我就不会了！减可以把！

㈧ vb有趣小程序

Private WithEvents Timer1 As Timer
Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
Private Sub Form_Load()
Me.Width = 4500: Me.Height = 4500
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.AutoRedraw = True
Me.Caption = "CBM666的万花筒"
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize
r = 340 * Rnd
If r <> 0 Then
r1 = 500
s = r * Rnd
b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
For t = 1 To 10000
a1 = t * 3.1415926 / 180
a2 = (r1 / r) * a1
xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4
yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4
Me.PSet (xb, yb), b
Next t
End If
End Sub

㈨ vb6.0 制作一个简单小程序

按功能键盘上的F5 运行就可以！如果有错误，VB会出现新窗口，用汉字写出如何错内误。在新窗口容内点击调试，在代码窗口中出错的代码为黄色背景。最后保存程序，单击“文件”菜单——选择“保存工程”。需要保存两个窗体，首先是.frm的应用程序窗体，然后是.vbp的工程文件。

㈩如何使用VB编写一个简单的小程序

在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。

接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性栏的Text属性上，将其Text1删除，也就是清空数据，如下图所示。

然后，反复用第一步骤和第二步骤做成如图所示的界面来，学习需要反复练习，在练习中不断进步。这里是做简单的加法程序，如下图所示。

接着，加法程序的界面做好后，还不能执行加法运算，必须还要在Form1窗口上绘制出一个命令按钮来，在左边工具菜单栏，单击命令按钮，并绘制出来。然后给其属性窗口下Caption改名为计算，如下图所示。

然后，程序看起来是做好了，单击如图所示的运行按钮，弹出自己做出的Form1窗口，输入数字3和6，然后单击计算。可是结果并没有出现，如下图所示。

最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。

阅读全文

简单vb小程序

与简单vb小程序相关的阅读推荐