用VB写一简单程序。 - VB / 基础类
试用VB程序语言写出完整程序段:求S=1+3+5+7+……+999的值，在此谢谢回帖的朋友们！
公式：s=(1+999)*500/2 别的代码会自己写了吧
for i = 1 to 999 step 2
sum = sum + i
next i
msgbox sum
dim i as integer
dim S as integer
S=0
for i=0 to 500
S=S+(2*i-1)
next
rs+=sql.executeQuery("SELECT * from da_jnwjb WHERE tmh LIKE '"%+s[0]+"%' ");
rs+=sql.executeQuery("SELECT * from da_jnwjb WHERE tmh LIKE '"%+s[1]+"%' ");
rs+=sql.executeQuery("SELECT * from da_jnwjb WHERE tmh LIKE '"%+s[0]+s[1]+"%' ");
Private Sub Form_Load()
Show
Dim i As Integer
For i = 1 To 1000 Step 2
s = s + i
Next i
Print s
End Sub
VB code:
Private Sub Command1_Click()
Dim a As Long, c As Integer
Dim b As Integer: b = 1
While b <= 999
a = a + b
b = b + 2
Wend
MsgBox a
End Sub
Private Sub Command1_Click()
Dim a As Long, c As Integer
Dim b As Integer
b = 1
While b <= 999
a = a + b
b = b + 2
Wend
MsgBox a
End Sub
................
竞
相关问答：
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有，呵呵。
......
