VB程序设计中标点符号的含义比如说VB程序设计时“:“表示的含义,又如“；”表示的含义!真心搞不懂这些东西!

这一类问题可以采用枚举的方法来实现：
枚举算法的特点8个字,一一列举,逐个检验：
往往外面用循环来实现一一列举,在循环中嵌套选择,来实现逐个检验；
dim i as integer
for i = 100 To 999
选择结构实现检验
next i
检验实现如下：
a = i 100 '获得该三位数的百位数字
b = (i 10) Mod 10 '获得该三位数的十位数字
c = i mod 10 '获得该三位数的个位数字
If i Mod 3 = 0 And i Mod 7 = 0 And a+b+c=18 Then
这个i就是满足条件的三位数了
End If
整个程序代码：
Option Explicit
Private Sub Command1_Click()
Dim i As Integer '三位数
Dim a As Integer '三位数的百位
Dim b As Integer '三位数的十位
Dim c As Integer '三位数的个位
Dim n As Integer '满足条件的个数
n = 0
For i = 100 To 999
a = i 100 '获得该三位数的百位数字
b = (i 10) Mod 10 '获得该三位数的十位数字
c = i Mod 10 '获得该三位数的个位数字
If i Mod 3 = 0 And i Mod 7 = 0 And a + b + c = 18 Then
Print i,'输出1个找到的数,但是不换行（注意这个逗号就是不换行）
n = n + 1 '找到一个,就在n里增加1
If n Mod 5 = 0 Then Print '如果n是5的倍数,就换行
End If
Next i
Print
Print
Print "有：" & n & "个三位数满足条件."
End Su

Dim zhi1 as Integer
Dim zhi2 as Integer
zhi1 =Int(100*Rnd)
zhi2 =Int(100*Rnd)
Print “结果算式：" & zhi1 & “+" & zhi2 & “=" & zhi1 + zhi2
//把上面代码的过程放到一个按钮事件就可以了.Rnd是会随机生成一个大于等于0小于1的一个随机单精度数,int（（最大数-最小数）*Rnd-最小数）

如果不加括号仅有两级运算+-*/的话还是比较简单的.就给个思路,如果你有基础的话应该可以写出来
首先定义几个数组Fun() Num()和一个变量MFun '都是String
Fun()用来存储+-*/,Num()用来存储数字,通过Rnd随机数来确定Num的个数和数值,然后Fun的个数为Num个数-1,同样用rnd来随机分配+-*/.然后MFun(0)=Num(0) & Fun(0) &Num(1) &……这样就得到了一个计算题MFun
接着写一个sub过程来计算计算结果
定义Sum()和MSum '都是double
在这个过程中一个一个的识别Fun(i),如果是+就将前面Fun(i)直接放进Sum()中,如果是-的就将其作负值运算再放进Sum(),如果是*或者/就与将Fun(i)与Fun(i+1)进行乘除运算的值放入Sum()中.最后MSum(0)=Sum(0)+Sum(1)……
这样就可以了,

程序设计会涉及到三种运算,这三种运算符以及优先级：
1,算术运算符：① *、/ ② ③mod ④＋、－
2,关系运算符：,=
3,逻辑运算符：① Not,② And,③Or
如果一个式子里只有一种运算那么关系运算没有优先级别,而算术和逻辑运算有：
按照① 、 ②、 ③、 ④次序
如果在一个表达式里,同时出现这三种运算,那么先算术运算,后关系运算,最后逻辑运算.
算术运算的结果是一个数值,而关系运算和逻辑运算的结果是逻辑值（True或False）
你说的就是逻辑运算：
逻辑运算,所对应的运算值是逻辑值,即：True或False,其结果也是逻辑值True或False：
由于逻辑值只有两个True和False,所以逻辑运算可以罗列如下：
And运算：中文叫与运算
True And True 结果为 True
True And False 结果为 False
False And True 结果为 False
False And False 结果为 False
Or运算：中文叫或运算
True Or True 结果为 True
True Or False 结果为 True
False Or True 结果为 True
False Or False 结果为 False
Not运算：是一目运算,该运算只需要一个操作数
Not False 结果为 True
Not True 结果为 False
优先级别：Not 优先于 And 优先于 O

Option Explicit
Private Sub Command1_Click()
Dim A(80) As Integer, B() As Integer, Nb As Integer
Dim I As Integer, J As Integer, T As Integer

'随机生成80个随机数
T...

(1) 42 (2)11 17 (3) 1.5 2(1)a.最小公倍数private sub command1_click() dim m%,n%,r%,t% m=inputbox("输入m=") n=inputbox("输入n=") x=m:y=n if m0 ' 最大公约数为 m msgbox "最小公倍数为：" x*y/m ' 最小公倍数= m*n/ mb. private sub command1_click()dim a!,b!,c! ,p! ,s a=val(text1.text) b=val(text2.text) c=val(text2.text) p=(a+b+c)/2 '周长的一半 s=sqr(p*(p-a)*(p-b)*(p-c)) '海伦定理 msgbox "面积是" s (2).a. dim a%(1 to 100) randomize for i = 1 to 100 x=int(rnd*1000) a(i)=x next b. sub sub1(a()) dim t%,i%for i =1 to 50 t=a(i) a(i)=a(100-i+1) a(100-i+1)=t next iend subc. for i =1 to 100 print a(i),if i mod 5=0 then print next(3) private sub command1_click()dim a %(50) ,k%,min % for i=1 to 50 x=int(rnd*50) a(i)=x next min=a(1) for i=2 to 50 if min>a(i) then min=a(i):k=i next print "最小数为："; min pirnt "位置是:";kend sub

Private Sub Command1_Click()
MsgBox PriceReduced(500)
End Sub
Private Function PriceReduced(WaresPrice As Double) As Double
Select Case WaresPrice
Case Is >= 1000
PriceReduced = WaresPrice * 0.8
Case 500 To 1000
PriceReduced = WaresPrice * 0.85
Case 300 To 500
PriceReduced = WaresPrice * 0.9
Case 100 To 300
PriceReduced = WaresPrice * 0.95
Case Else
PriceReduced = WaresPrice
End Select
End Function

我会

Loop While Abs(a) 10 ^ (-7)
或
Loop Until Abs(a)

声明变量,并声明数据类型,否则,A,B,C三个变量是String,表达式(A + B + C)的结果不是12,而是"345".

Private Sub Command1_Click()
Randomize Timer
For i = 1 To 100
x = Int(Rnd() * 90 + 10)
If x Mod 2 = 0 Then
m = m + x
Else
n = n + x
End If
Next
Print "偶数和："; Str(m)
Print "奇数和："; Str(n)
End Sub
随机产生100个两位数,并分别求出奇数、偶数和

private sub command1_click()
input "x=";x
select case x
case is>=0
y=x+2
case 0
y=0
case is=0
y=x+2
elseif x=0
y=0
else
y=x-2
endif
"y=";y
endsu

Private Sub Command1_Click()
Dim a, b, c, d
For a = 1 To 9
For c = 0 To 9
b = a
d = c
If (a * 1000 + b * 100 + c * 10 + d) Mod 78 = 0 Then Print a & b & c & d
Next
Next
End Sub
答案是7722

写出来了 ,骗点 财富值.
定义一个记录类型、和一个字符串转结构的过程 方便操作

sum=0
for i=-100 to 100
for j=-50 to 50
if 9*i-9*j=1 then
sum=sum+1
end if
next
next

Dim i As Integer
For i = 1 To N
s = s + x(i, N - i + 1)
Next i
如果程序能正常运行,你得在最前面加上公用变量定义：
Dim x() As Integer
Dim N As Integer
Call Fun(X, N, s)改成
Call Fun(X(), N, s)

Private Sub Command1_Click()
Dim s As Double
Dim a As Long,n As Long
n = 1
a = 1
s = s + 1 / a
Do Until 1 / a < 0.00001
a = a + n
s = s + 1 / a
n = n + 1
Loop
Print "s=" & s
Print "共加了" & n & "项"
End Su

面积计算公式:计算公式s=(1/4)√(a+b+c)*(a+b-c)*(a+c-b)*(b+c-a)
周长就是 三个相加了
这段代码你参考下,首先判断输入的三边长度是否合法,然后再计算
Private Sub Command1_Click(Index As Integer)
Dim s As Single
Select Case Index
Case 0 '计算
If a(0)

2.
for i=10 to 500 step 2
sum=sum+i
next i
print sum
3.
for i=200 to 1000
if i mod 3+i mod 5=0 then sum=sum+i
next
print sum
5.
for i=1 to 3000
if i mod 17=0 or i mod 23=0 then j=j+1
next
print j
6.
for i=100 to 650
if i mod 3+i mod 7=0 then j=j+1
next
print j
7.
i=2
do while sum

Print 是输出,如在窗体事件中,就在窗体上打印输出.
Tab()是位置函数,就是输出的位置,如Tab(10)就是从第10个打印位置开始.tab(j*8+1)表示从第J*8+1个打印位置开始.
分号,表示在紧接着前面的位置输出,不进行换行分段等.
a(i)表述数组a的第i个元素