用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
................
竞
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
