简单的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 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
VB简易程序设计代码
题目一:Private Sub Text1_Change()Text2.Text = Text1.Text End Sub 题目二:Private Sub Command1_Click()Text1.Text = "程序设计第一步:设计界面"End Sub Private Sub Command2_Click()Text1.Text = "程序设计第二步:属性设置"End Sub Private Sub Command3_Click()Text1.Text = "...
Excel中VB编程关于判断单元格数据类型的问题(高手进)..
"a" Or s > "z" Then '当不是英文的时候 MsgBox "有符号的字符串"Exit For Else '余下的全是英文了 If i = Len(Target.Value) Then MsgBox "英文串"End If Next Case 2, 3, 4, 5 '整形.长整形,单双精度的 MsgBox "数值"Case Else MsgBox "Empty"End Select End Sub ...
vb创建按钮组的两种方法
2、各控件组其属性设置如下:设置效果如下图所示:二、编写代码 Dim s1 As Single, s2 As Single, ysf As String ‘定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符 Private Sub Command1_Click(Index As Integer)Text1.Text = Text1.Text & Command1(Index).Caption ’...
VB编程语言中的单精度数和双精度数到底是什么概念?
双精度比单精度表示的数的范围更大,可以表示的小数位数越多。双精度比单精度所需要的存储空间更大。其它都一样的。
EXCEL中自带的VBA和VB有什么区别?
EXCEL中自带的VBA和VB区别为:性质不同、运行依赖性不同、独立性不同。一、性质不同 1、VBA:VBA是VB的一个子集,是使已有的应用程序(EXCEL)自动化。2、VB:VB是设计用于创建应用程序(EXCEL)标准的应用程序。二、运行依赖性不同 1、VBA:运行VBA开发的程序必须依赖于它的父应用程序。2、VB:运行...
VB是做什么的语言?
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言,是一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active X控件,用于...
这是一道VB的编程题,哪位大神要是知道怎么做麻烦速度回复我,感恩戴德...
设一个中间变量用于临时交换就行了.Private Sub Form_Load()Dim x As Integer, y As Integer, z As Integer x = 9 y = 5 Me.Show Me.Print "x=" & x & ", y=" & y z = x x = y y = z Me.Print "x=" & x & ", y=" & y End Sub ...
VB中的single是什么意思
single单精度,可以精确到十进制的7位,double双精度,可以精确到十进制的15位。Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。Visual Basic源自于BASIC编程语言。VB拥有图形用户...
用VB编程评定学生的成绩等。在文本框(text1)中输入某一成绩单机命令按钮...
我就用SELECT CASE 吧 Private Sub Command1_Click()Select Case Val(Text1)Case Is < 60 Label1.Caption = "不合格"Case Is < 80 Label1.Caption = "合格"Case Is < 90 Label1.Caption = "良好"Case Is >= 90 Label1.Caption = "优秀"End Select End Sub ...
单击退出程序的VB代码怎么写
1.输入Private Sub Form1 Click()EndEnd Sub 2.输入Private Sub Command1_Click()3.输入UnloadmeEnd Sub即完成
雷诗复方: 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类型来进行单个字符的计算才可以. 界面就和发的图是一样的.代...