VB程序编写

以下是代码：

Dim i As Integer  '存放秒值变量

Rem “开始”按钮对象中的程序

Private Sub Command1_Click()

i = Text1Text        '文本框对象中输入的秒值放入i变量

Timer1Enabled = True '使定时器开始工作进行循环

End Sub

Private Sub Command2_Click()

End

End Sub

Rem 定时器对象中的程序

Private Sub Timer1_Timer()

i = i - 1          '秒数递减

Text1Text = i     '将递减后的秒数值显示在文本框中

If i = 0 Then Timer1Enabled = False  '当秒值递减到0时关闭定时器，停止循环

End Sub

最简单的：

Private Sub Command1_Click()

End

End Sub

End语句帮助你关闭所有已经打开的文件，显示的窗口，以及申请的内存等等，能够满足90%的需要，但是End也不是万能的，所以严谨的程序员还是会自己释放所占用的资源，完毕后再退出。

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

问题描述:

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

Label1Caption = 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

Label1Caption = s '把S写在标签里面

End Sub

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

相加的代码

Private Sub Command1_Click()

Label1Caption = Val(Text1text) + Val(Text2text)

End Sub

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

以上就是关于VB程序编写全部的内容，包括:VB程序编写、VB程序怎么写、关于VB程序的解释，很容易等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！