关于VB程序的解释，很容易

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题旁帆描述:

Private Sub Command1_Click()

s = 0

For i = 1 To 15

x = 2 * i - 1

If x Mod 3 = 0 Then s = s + 1

Next i

Label1.Caption = s

End Sub

以上是什么意思，最好解释清楚点！还有我要用VB做加法减法运算怎么做，把程序告诉我建一个Command1按钮改为相加，然后建立两个TEXTBOX之后在这两个文本框中输入数字，按相加按钮，答案显示在LABEL中

（答的对加50-100积分）

解析:

Private Sub Command1_Click() '按钮点击时间

s = 0 '把S初运此雹始为0 也就是设S=0

For i = 1 To 15 '使i的值从1到15递增，i每改变1次就执行下面两行一次

x = 2 * i - 1 '求X的值

If x Mod 3 = 0 Then s = s + 1 '如果X是3的倍数，那么S=S+1，即增加1

Next i

Label1.Caption = s '把S写在标签里面

End Sub

总体意思是 当I=1，2，3，。。。15时 记录2*I-1 的值为3的倍数的 个数

相加的代码

Private Sub Command1_Click()

Label1.Caption = Val(Text1.text) + Val(Text2.text)

End Sub

就可以扒简了，当然 - * / 和+的道理一样，改一下符号就可以了

Dim s(10) As Integer '申明一数组

Dim c As Integer '申明变量

For i = 1 To 10'弊绝循环10次

s(i) = InputBox("请输入数值") '获得输入

c = c + s(i) '将输入的值保持在变量c中，循环完毕,c就是10个数的总和

Next

'以下是求最大值

max = s(1) '现将数组第一个元素假定为最大值存储在变量max中

For j = 1 To 10'循环10次

If s(j) >max Then '将当前数物卜岩组元素的值与max比较,

max = s(j) '如比max大，将当前元素存在max中

End If

Next j

'这段求最小值,同上边的求最大值

min = s(1)

For k = 1 To 10

If s(k) <min Then

min = s(k)

End If

Next k

'最后将求出来的值分别打印出来

Print "10个数字的和"c"平均值罩御"c / 10"最大值"max"最小值"min

Private Sub Timer1_Timer()

Dim str_package As String

Dim str_package1 As String

Dim str_package2 As String

pack(5) = pack(5) Or &H40000000  '将pack(5)的第谨消30位（2进制位，最低位为0位）置1

pack(6) = pack(6) Or &H40000000  '将pack(6)的第30位置1

' pack( )应该是Long类型的数组祥蔽知！

str_package1 = Str(pack(5))   '将pack(5)的值并旅转换为字符串格式的10进制值

str_package1 = Trim(str_package1) ' 去除str_package1的首尾空格

str_package2 = Str(pack(6))   '同上，对 pack(6)处理

str_package2 = Trim(str_package2)

' Str( )将数值转换为字符串，正数前有一空格

' 其实直接用str_package1 = pack(5) 就可以了，这一句就达到那“两句”的效果

str_package = str_package2 + str_package1  'str_package2 和 str_package1连接成一个字符串

' 字符串连接，最好用 & 进行 *** 作，以免出现歧义！

sckclient.SendData str_package      '发送字符串数据

End Sub

---