高中vb语言基本代码 高中vb程序例练题详解

高中信息VB单击和点击分别用什么代码

程序界面上有几个按钮,分别代表了不同的颜色,点击不同的按钮,text1.backcolor显示相应的颜色.如果是这样的话,就可以这样编写代码:Private Sub Command1_Click()

高中vb语言基本代码 高中vb程序例练题详解

Text1.BackColor = RGB(255, 0, 0)

End Sub

Private Sub Command2_Click()

Text1.BackColor = RGB(0, 255, 0)

End Sub

Private Sub Command3_Click()

Text1.BackColor = RGB(0, 0, 255)

End Sub

你也可以用一个按钮实现颜色的循环变换.

Dim i As Integer

Private Sub Form_Load()

i = 1

End Sub

Private Sub Command4_Click()

If i = 1 Then

Text1.BackColor = RGB(255, 0, 0)

i = i + 1

ElseIf i = 2 Then

Text1.BackColor = RGB(0, 255, 0)

i = i + 1

Else

Text1.BackColor = RGB(0, 0, 255)

i = 1

End If

End Sub

vb加法计算代码

Private Sub Command1_Click()Dim a As Integer,b As

Integera=Val(Text1.Text)b=Val(Text2.Text)Text3.Text=a+bEnd Sub在这段VB程序中，“a=Val(Text1.Text)b=Val(Text2.Text)”是加法的代码。

代码如下：

Private Sub Command1_Click()

Label2.Caption = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = "": Text2.Text = "": Label2.Caption = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

扩展资料：

Private Sub Command1_Click()

Text3.Text = Int(Text1.Text) + Int(Text2.Text)

End Subint(数据类型)是指强制类型转换，即把括号里的类型转为整型。

这个代码中

Private Sub Command1_Click()

Dim n1, n2 As Integer

n1 = Val(Text1.Text)

n1 = Val(Text2.Text)

Label4.Caption = n1 + n2

End Sub

第4行的n1显然应该是n2，要知道一个VB与众不同规定。

Dim n1,n2 as integer要改成 Dim n1 as integer ,n2 as integer

或者

Dim n1 as integer 、Dim n2 as integer。

参考资料：

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=Val(Text1.Text)

b=Val(Text2.Text)

Text3.Text=a+b

End Sub

在这段VB程序中，“a=Val(Text1.Text)

b=Val(Text2.Text)”是加法的代码

扩展资料：

由于常数可以用其它常数定义，因此必须小心，在两个以上常数之间不要出现循环或循环引用。当程序中有两个以上的公用常数，而且每个公用常数都用另一个去定义时就会出现循环。

例如：

'在 Module1 中：

Public Const conA = conB 2 '在整个应用程序

'中有效。

'在 Module 2：

Public Const conB = conA / 2 '在整个应用程序

'中有效。

如果出现循环，在试图运行此应用程序时，Visual Basic 就会产生错误信息。不解决循环引用就不能运行程序。为避免出现循环，可将公共常数限制在单一模块内，或多只存在于少数几个模块内。

参考资料：

文本框中键入的数据,会被默认为字符串.+号可以连结两个字符串.解决方法:用val将字符类型转换成数字类型,如x=val(text1.text);可以直接赋予文本框的值而不必转换,如text1.text=z.初学者要多注意变量的类型.

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=Val(Text1.Text)

b=Val(Text2.Text)

Text3.Text=a+b

End Sub

在这段VB程序中，“a=Val(Text1.Text)

b=Val(Text2.Text)”是加法的代码

Label2.Caption = Text1.Text + Text2.Text

的类型是

String = String + String

即变成

String = String & String

所以你的2+2=22

你可以用Val(String)即

Label2.Caption = Val(Text1.Text) + Val(Text2.Text)

使之成为

String = Double + Double

从而顺利相加

当然也可以

Label2.Caption = Text1.Text 1 + Text2.Text

这个好像是

String = Long + Long

x=

Text1

y=

Text2

这俩命令是使

xy

变形为

字符串型,

z就是俩字符串的和,当然是按俩字符串输出结果了啊

Text1.Text 和Text2.Text都是 string 的

而vb中+和&都是连接符号

所以变成了22 而不是4

先进行数据类型转换

楼上的对！

这样我估计也没什么问题，不过为了保险，改成

Private

Sub

Command1_Click()

Dim

x,

y,

zAs

Long

x=

val(Text1)

y=

val(Text2）

z=

x+

yText3

=str(z）

End

Sub

x=

val(Text1)

y=

val(Text2)

text1.text

是字符型的

用val把字符型的转换成数值型的就可以了！~

常用vb的编程代码

先在程序中加一个Label,名字应该符合VB程序控件命名规范:

lbl<名称>

再加一个Timer控件,名字也要符合命名规范

在窗体代码对话框中打入

Private Sub Form_Load()

On Error Resume Next

Me.Font = "Arial"

Me.FontSize = 24

Me.FontBold = True

.Enabled = True

.Interval = 1000

End Sub

'下列函数只能二选其一

'是时间显示

Private Sub _Timer()

On Error Resume Next

.Caption = Time

End Sub

'是日期与时间显示

Private Sub _Timer()

On Error Resume Next

.Caption = Now

End Sub

关于高中分支VB编程的题目，如图算法，求VB怎么编，谢啦

这个是求三个数中的值的流程。

按“流程图”，代码如下：

Private Sub Command1_Click()

Dim a&, b&, c&

Dim strIN As String

Me.Cls

strIN = InputBox("输入a, b, c的值，用西文逗号分隔：", "输入三个数据")

'假设输入是符合规定格式的，这儿略去异常处理代码

a = Val(strIN)

c = InStr(strIN, ",") + 1

b = Val(Mid$(strIN, c))

c = Val(Mid$(strIN, InStr(c, strIN, ",") + 1))

If (a > b) Then

If (a > c) Then

Print a

Else

Print c

End If

Else

If (b > c) Then

Print b

Else

Print c

End If

End If

End Sub

vb简单编程，高中水平，为会考~

个位数，求所有的数的和。能用VB语境！！= =急急急 Private Sub Form_Click() Dim x As Integer, s As Long, n As Integer x = 100V

参考这样

label1=“随机产生5个数：" & Int(Rnd() 90) + 10

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 5

'Print Int(Rnd() 90) + 10;'这句换成下面

label1=label1 & Int(Rnd() 90) + 10 & " "

Next i

'Print ''这句不用了

End Sub