VB简易程序设计代码

一、判断闰年：

加入一文本框text1,text2命令按钮command1,

在text1中输入所要判断的年份。

在command1的单击事件中加入以下代码：

dim year& '定义年份变量

year=val(text1text)

If (Year Mod 4 = 0 And Year Mod 100 <> 0) Or (Year Mod 400 = 0) Then

Text1Text = year & "年是闰年！"

Else

Text1Text = year & "年是平年"

end if

二、 加入两个文本框，text1,text2 ，一个按钮command1

在text1中输入收入情况，text2用来显示结果

在command1的单击事件中输入以下代码：

dim shui&

shui=val(text1text)

if shui < 200 then text2text = "当前收入免税。"

if shui >200 and shui <401 then text2text = "当前就纳税：" & (shui-200) 003 & "元"

if shui >400 and shui< 500 then text2text = "当前应纳税:" & (shui-200) 003) + (shui-400)004 & "元"

if shui >499 then text2text="当前应纳税:" & (shui-200) 003) + (shui-400)005 & "元"

还有你的资料需要要存档吗

自动计算,还是从在程序里添加按钮,停止和恢复计费

如果是自动计算,根本不需要什么每天自动增加!

因为每年的日期用电脑直接都可以查,既然费用固定,那直接乘一下,就出来了,还用得着每天增加吗都不用读取系统时间了,明年的都能计算出来!

如果日期是自己指定的,那代码就的写法就不同了!所以请楼主尽快补充问题

第一题

Private Sub Form_click()

s=0

for n= 1 to 100

s=s+n

next n

print "s=";s

End Sub

第二题

Private Sub Form_click()

S = InputBox("请输入金额", "税收")

If S < 200 Then

Print "您不用缴纳税收"

ElseIf S >= 200 And S < 400 Then

x = (S - 200) 003

Print "您需要缴纳的税收是："; x

ElseIf S >= 400 And S < 5000 Then

x = (S - 400) 004

Print "您需要缴纳的税收是："; x

ElseIf S >= 5000 Then

x = (S - 5000) 005

Print "您需要缴纳的税收是："; x

End If

End Sub

第三题

Private Sub Form_click()

S = InputBox("请输入星期 （0-6表示）", "工作安排")

Select Case S

Case "1"

MsgBox "计算机课"

Case "3"

MsgBox "计算机课"

Case "2"

MsgBox "程序设计课"

Case "4"

MsgBox "程序设计课"

Case "5"

MsgBox "进修英语"

Case "6"

MsgBox "政治学习"

Case "0"

MsgBox "休息"

Case Else

MsgBox "输入错误，请重新输入:"

End Select

End Sub

搞笑了 一楼 最多10分钟之内写完 还2天呢。。。我晕

1、创建控件组的方法

首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption 属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。

这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

2、各控件组其属性设置如下：

设置效果如下图所示：

二、编写代码

Dim s1 As Single， s2 As Single， ysf As String

‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符

Private Sub Command1_Click（Index As Integer）

Text1Text = Text1Text & Command1（Index）Caption ’将command1的单击事件与文本框显示的内容连接

End Sub

Private Sub Command2_Click（）

Text1Text = Text1Text + “。”

If （InStr（Text1Text， “。”） = 1） Then ‘第一位不能为小数

Text1Text = “”

End If

If InStr（Text1Text， “。”） 《 Len（Text1Text） Then ’防止出现两个小数点

Text1Text = Left

（Text1Text， Len（Text1Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1Text） ‘开始加减乘除运算

Select Case ysf Case “+”

Text1Text = s1 + s2

Case “-”

Text1Text = s1 - s2

Case “”

Text1Text = s1 s2

Case “/”

If s2 = 0 Then

MsgBox “分母不能为零！”

Text1Text = “”

Else

Text1Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1Text， 1） = “。”， 0 & Text1Text， Text1Text） ‘

这个很关键，如果没有这个的话，得出小于1的小数前面没有0

End Sub

Private Sub Command4_Click（）

If Text1Text = “” Then ’文本为空就结束

Exit Sub

End If

Text1Text = Left（Text1Text， Len（Text1Text） - 1） ‘文本退一格

End Sub

Private Sub Command5_Click（）

Text1Text = “” ’清除当前框内文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1Text） ‘将s1隐藏起来 ysf = Command6（Index）Caption

Text1Text = “”

End Sub

Private Sub Command7_Click（）

If Left（Text1Text， 1） 《》 “-” Then ’判断作为负数

Text1Text = “-” & Text1Text

Else

Text1Text = Right（Text1Text， Len（Text1Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1Text = Text1Text Text1Text ‘平方

End Sub

Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。

参考链Visual Basic——百度百科接

模糊时政府公文的主要特征，我不是很清楚

Private Sub Command1_Click()

Dim tax As Double, i As Long

Dim s As String

InputValue:

s = InputBox("请输入你的收入：", , "2500")

i = CLng(s)

If i < 0 Then

MsgBox "你必须有收入，不然怎么跟老婆大人交代呀！"

GoTo InputValue

End If

Select Case i

Case Is < 200

tax = 0

Case 200 To 400

tax = (i - 200) 003

Case Is >= 5000

tax = (i - 5000) 005

Case Else

tax = (i - 400) 004

End Select

MsgBox "您要上交所得税：" & Format(CStr(tax), "000") & "元"

End Sub

以上就是关于VB简易程序设计代码全部的内容，包括:VB简易程序设计代码、我想用VB写一个关于计费的程序、请VB高手看看着这几题。小弟初学 谢谢大家啊！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！