简单的VB编程

用VB编写一个简单的软件，初学者~

VB源码：
http://www.codefans.net/sort/list_9_1.shtml

Private Sub Command1_Click() '点击应付 a = Val(Text1) x7 = Int(a / 100) Y1 = a - x7 * 100 x6 = Int(Y1 / 50) Y2 = Y1 - x6 * 50 x5 = Int(Y2 / 20) Y3 = Y2 - x5 * 20 x4 = Int(Y3 / 10) y4 = Y3 - x5 * 10 x3 = Int(y4 / 5) X2 = y4 - x3 * 5 Text7 = x7 Text6 = x6 Text5 = x5 Text4 = x4 Text3 = x3 Text2 = X2End SubPrivate Sub Command2_Click() '点击清空 Text7 = "" Text6 = "" Text5 = "" Text4 = "" Text3 = "" Text2 = "" Text1 = ""End Sub

第一个:
Option Explicit

Dim n, a As Integer
Dim sum As Long

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Activate()
a = InputBox("输入连加最后值！", "连加程序", 10)
sum = 1
For n = 1 To a
sum = sum + n
Next n
Print
Print Tab(3); "结果为"; sum
End Sub

注:连加最后值最大为32767!

第二个:
Option Explicit
Dim a, b, c, d As Integer

Private Sub Command1_Click()
If a > b > c Then
d = MsgBox("第一大为" + a + "第二大为" + b + "第三大为" + c, 0, "exe")
ElseIf a > c > b Then
d = MsgBox("第一大为" + a + "第二大为" + c + "第三大为" + b, 0, "exe")
ElseIf b > a > c Then
d = MsgBox("第一大为" + b + "第二大为" + a + "第三大为" + c, 0, "exe")
ElseIf b > c > a Then
d = MsgBox("第一大为" + b + "第二大为" + c + "第三大为" + a, 0, "exe")
ElseIf c > a > b Then
d = MsgBox("第一大为" + c + "第二大为" + a + "第三大为" + b, 0, "exe")
ElseIf c > b > a Then
d = MsgBox("第一大为" + c + "第二大为" + b + "第三大为" + a, 0, "exe")
ElseIf a = b = c Then
d = MsgBox("三数相等！", 0, "exe")
ElseIf a = b > c Then
d = MsgBox("第一大为" + a + "第二大为" + b + "第三大为" + c, 0, "exe")
ElseIf a = c > b Then
d = MsgBox("第一大为" + a + "第二大为" + c + "第三大为" + b, 0, "exe")
ElseIf b = c > a Then
d = MsgBox("第一大为" + b + "第二大为" + c + "第三大为" + a, 0, "exe")
ElseIf c = a > b Then
d = MsgBox("第一大为" + c + "第二大为" + a + "第三大为" + b, 0, "exe")
Else
d = MsgBox("无法排序！", 16, "exe")
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
a = 0
b = 0
c = 0
Unload Me
Load Me
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
a = InputBox("输入第一个数：", "输入")
Text1.Text = a
b = InputBox("输入第二个数：", "输入")
Text2.Text = b
c = InputBox("输入第三个数：", "输入")
Text3.Text = c
End Sub

Private Sub Text1_Change()
Text1.Text = a
End Sub
Private Sub Text2_Change()
Text2.Text = b
End Sub
Private Sub Text3_Change()
Text3.Text = c
End Sub

测试没问题!

一、一个Button,两个Text
在Text1中输入一个数n以后，点击Button计算1到n的和并在Text2中显示。
双击Button，在Private sub...下输入
text2=(text1+1)*text1/2

排序那个自己想想都行啦，四个Text,三个Button(当然，你想少点内容的话用1个Text也行，语言高级点就行了)
Text1,Text2,Text3输入三个数，Text4显示排列
排序按钮:
dim i
if text1>text2 then
i=text1
text1=text2
text2=i
end if
if text2>text3 then
i=text2
text2=text3
text3=i
end if
if text1>text3 then
i=text1
text1=text3
text3=i
end if
text4=text1 & "<" & text2 & "<" & text3
按钮清空:
text1=text2=text3=text4=""
退出按钮:
End

上面的例子如果不能正常运行，就将textn换成Number(textn)就行了，不过一般直接用textn都行的。

1.privte sub command1_click()'点击command1后弹出输入框输入n的值，结果在文本框1中显示
dim a%,i%,sum&
inputbox("请输入n的值")
for i=1 to n
sum=sum+i
next
text1.text=sum
end sub
2.先画上三个文不本框
privte sub command1_click() '单击command1进行输数
dim a%,b%,c%,d%
a=inputbox(" 请输入第一个数")
b=inputbox（"请输入第二个数"）
c=inputbox("请输入第三个数" )
text1.text=a
text2.text=b
text3.text=c
end sub
privte sub command2.click() ' 单击command2进行排序
if a<b then
d=a
a=b
b=d
end if
if b<c then
d=b
b=c
c=d
end if
if a<b then
d=a
a=b
b=d
end if
text1.text=a
text2.text=b
text3.text=c
end sub
private sub command3_click() ' 单击command3清空
text1.text=""
text2.text=""
text3.text=""

end sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Text1.Text <> "" And IsNumeric(Text1.Text) Then
Dim vSum%
for i=1 to val(text1.text)
vSum = vSum + i
next
Text2.Text = i
End If
End Sub

(n+1)^n/2

---

阿克苏市18325773196： 简单的VB编程 - ？
雷诗复方： Private Sub Command1_Click() If Combo1.Text = ＂生活用水＂ Then Text2 = Val(Text1) * 1 & ＂元＂ ElseIf Combo1.Text = ＂工业用水＂ Then Text2 = Val(Text1) * 5 & ＂元＂ End If End Sub Private Sub Form_Load() Combo1.AddItem ＂生活用...

阿克苏市18325773196： 用vb做一个简单的编程 - ？
雷诗复方： Private Sub Form_click() Dim x$, y% x = InputBox(＂输入小写字母:＂) Do While x >= ＂a＂ And x <= ＂z＂ y = y + Val(Asc(x)) - 96 x = InputBox(＂输入小写字母:＂) Loop Print y End Sub

阿克苏市18325773196： VB简单编程？
雷诗复方： 在一个窗体里面复制以下代码就可以了.在VB6.0精简版环境下测试通过. Dim a(9) As Integer Private Sub Form_Load() Me.Show Dim b As Integer For b = 0 To 9 a(b) = GetRnd(20, 30) Print a(b) Next b Print ＂最小值是:＂ & ProcMin(a) End ...

阿克苏市18325773196： 超级简单的VB编程？
雷诗复方： Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single a = Val(InputBox(＂输入三角形三边的长＂)) b = Val(InputBox(＂输入三角形三边的长＂)) c = Val(InputBox(＂输入三角形三边的长＂)) If a + b > c And a + c > b And b + c > a Then MsgBox ＂能构成三角形＂ Print ＂周长是:＂ & a + b + c Else MsgBox ＂不能构成三角形＂ End If End Sub

阿克苏市18325773196： vb的最简单代码 - ？
雷诗复方： 插入三个文本框a1、a2、a3来接收输入的三个数,插入一个按钮a4来执行操作,最后用三个文本框来显示结果.Private Sub a4_Click()Dim v1, v2, v3, t As Singlev1 = a1.Valuev2 = a2.Valuev3 = a3.Value...

阿克苏市18325773196： VB简单编程 - ？
雷诗复方： Private Sub Command1_Click() Dim a(10) As Integer Me.Cls For i = 1 To 10 a(i) = Rnd() * 100 Next For i = 1 To 10 Print a(i) Next Print ＂排序后:＂ For i = 1 To 10 For j = 1 To 10 If a(i) < a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j) a(i) = a(i) - a(j) End If Next Next For i = 1 To 10 Print a(i) Next End Sub

阿克苏市18325773196： vb编程 - 搜狗百科？
雷诗复方： uEnd是用户定义捕捉VB输出框(MsgBox)按下按钮事件一个变量.即你的原代码 MsgBox ＂您确定要离开吗?＂, vbYesNo + vbQuestion, ＂离开程序＂执行按vbYes或vbNo按钮的结果...

阿克苏市18325773196： VB 简单编程？
雷诗复方： 你说的那个是Sgn 函数 sgn(x)>0 则x是大于0的整数,sgn(x)<0则x是小于0的整数.sgn(x)=0则x=0. Private Sub Command1_Click() Dim num, sign As Integer num = InputBox(＂请输入一个数＂) If num > 0 Then sign = 1 Else If num < 0 Then sign =...

阿克苏市18325773196： 编写一个简单VB程序？
雷诗复方： 可能字数太多,发不上来,我分开发.这是第一部分.关键函数在第2部分. 楼上的方法都不可用,因为计算结果太大.用双精度无法显示最后0的位数.所以,需要使用String类型来进行单个字符的计算才可以. 界面就和发的图是一样的.代...