vb初学者编程代码大全(vb简单编程代码)
VB的代码，很简单的。
Private Sub Command1_Click()
a = Int(Rnd * (995) + 5)
b = Int(Rnd * (995) + 5)
If a b Then
text2.Text = a
text1.Text = b
Else
text2.Text = b
text1.Text = a
End If
End Sub
Private Sub Command2_Click()
a = 10
b = 100
For i = a To b
If i Mod 2 = 0 Then Sum = Sum + i
Next
label1.Caption = Sum
End Sub
Private Sub Command3_Click()
If Val(text1.Text) Mod 2 = 0 Then
label1.Caption = Val(text1.Text) "是偶数"
Else
label1.Caption = Val(text1.Text) "是奇数"
End If
End Sub
常用vb的编程代码
先在程序中加一个Label,名字应该符合VB程序控件命名规范:
lbl名称
再加一个Timer控件,名字也要符合命名规范
在窗体代码对话框中打入
Private Sub Form_Load()
On Error Resume Next
Me.Font = "Arial"
Me.FontSize = 24
Me.FontBold = True
Timer控件名.Enabled = True
Timer控件名.Interval = 1000
End Sub
'下列函数只能二选其一
'是时间显示
Private Sub Timer控件名_Timer()
On Error Resume Next
Label控件名.Caption = Time
End Sub
'是日期与时间显示
Private Sub Timer控件名_Timer()
On Error Resume Next
Label控件名.Caption = Now
End Sub
vb程序代码
第一行改为
Public Sub sum(ByVal n As Integer, S As Integer)
已经调试通过
难道是因为你的text3.text为空或非数值，因此p=0，所以s3=0？
s1和s2是不是也为零？如果不是，就把
Dim s1, s2, s3 As Integer
改为
Dim s1, s2, s3
还有一个问题，所谓“溢出”也可能是你输入的数字或者计算过程超过了Integer的最大正数32767，如果是这样，请把所有数值变量改为Long类型
sub是可以带参数的，也是可以传值的，但如果参数是ByVal的就不会传回实参。
当然，楼主的问题，最好还是用Function，这才是标准的用法
子程序也是可以用
call abc(a,b)
的形式调用的，而且a,b的值可以在子程序内部调用后（不是指直接对a,b的调用），再返回到子程序外部的，也就是说，a,b的值在调用子程序前后是可以变化的
ByRef是参数的默认调用方式，所以是可以省略的
请高手编个VB小程序 代码短一点 什么都行 ，老师要求交的期末作业，我初学者 什么也不懂 简单点的，
给你个计算器的代码
一个单选按钮组，里面有4个单选按钮
3个文本框
1个命令按钮
代码如下
Private Sub Command1_Click()
Dim a, b, r As Double
Dim x As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
r = 0
If (Option1(0).Value) Then
r = a + b
ElseIf (Option1(1).Value) Then
r = a - b
ElseIf (Option1(2).Value) Then
r = a * b
ElseIf (Option1(3).Value) Then
r = a / b
End If
Text3 = r
End Sub
Private Sub Form_Load()
Option1(0).Value = True
End Sub
VB编程实例
哦，你要多大的程序？？？
'初学vb的经典入门程序如下
'画三个文本框，text属性设为空
'画四command按钮，capition属性分别设为“+”“-”“*”“/”
'把以下代码复制到代码窗口，运行，为text1，text2输入数字，任意点击一个按钮看看
Private
Sub
Command1_Click()'这个叫click事件，用于鼠标单击时响应
Text3.Text
=
Val(Text1.Text)
+
Val(Text2.Text)
'command1("+")被点时运行这里
End
Sub
Private
Sub
Command2_Click()
Text3.Text供海垛剿艹济讹汐番搂
=
Val(Text1.Text)
-
Val(Text2.Text)
'（-）被点时运行这里
End
Sub
Private
Sub
Command3_Click()
Text3.Text
=
Val(Text1.Text)
*
Val(Text2.Text)
'command3("*")被点时运行这里
End
Sub
Private
Sub
Command4_Click()
Text3.Text
=
Val(Text1.Text)
/
Val(Text2.Text)
'command4("/")被点时运行这里
End
Sub