
补充一下,rs.filed属性最重要忘了说了,弄好这几个属性基本上ADO的一般小 *** 作就OK了,VB的其它程序的学橘老习也类似,80%的功能20%的控件完成,掌握好这20%就行了
分类: 电脑/网络 >>程序设计 >>其他编程语言问题旁帆描述:
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
就可以扒简了,当然 - * / 和+的道理一样,改一下符号就可以了
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)