用VB语言用WHILE语句写出求T=1!+2!+3!……+20!的程序（n!=1*2*3*……*n）

当然可以了,另外step不是steo

将一个数据行变量转换成数字长整型变量
如
text1.text = "10"
text2.text = "11"
text3.text = text1.text+text2.text
按道理应该得到10＋11（结果是21）,但是返回什么呢?返回的是1011 这个是因为运算时候是字符运算 所以这样不行
那么怎么办呢?
text1.text = "10"
text2.text = "11"
text3.text = val(text1.text)+val(text2.text)
这样就返回21了 因为这里不是计算"11"+"12"而是计算11+12 前者等同于"11" & "12"
如果是字符串或者空格会返回一个0 所以可以利用这一点过滤字符只能输入数字

对数运算：用log函数,log(n)返回n的自然对数值（double型）.要计算以n为底x的对数值,可写为log(x)/log(n)
计算lg(2)：
log(2)/log(10)

Private Sub Command1_Click()
Dim I, J, X, Y, Z As Integer
Dim A(1 To 10000) As Integer
Dim Flag As Boolean
X = Int(InputBox("请输入一个正整数"))
Print X & "=";
Y = 1: Z = 1
For I = 2 To Sqr(X)
If X / I = Int(X / I) Then
A(Z) = I
Z = Z + 1
X = X / I
I = I - 1
End If
Next I
If Z = 1 Then
Print "不可分解"
Exit Sub
End If
If X 1 Then
A(Z) = X
Else
Z = Z - 1
End If
For I = 1 To Z
Print A(I);
If I < Z Then Print "*";
Next I
Print
End Sub
'定义的是整型变量,只要数据不是很巨大,一般没问题,如数据巨大,请楼主自己修正一下

if (x mod 3=0) and (x mod 5=0) then

Private Sub Command1_Click()
Dim num,i As Long
Dim a,b,c As Integer
For num = 100 To 999
a = num Mod 10
b = (num 10) Mod 10
c = num 100
If c > b And b > a Then i = i + 1
Next num
print i ' 显示多少个84个
End Su

Dim MyNumber
MyNumber = Int(99.8)' 返回 99.
MyNumber = Fix(99.2)' 返回 99.
MyNumber = Int(-99.8) ' 返回 -100.
MyNumber = Fix(-99.8)' 返回 -99.
MyNumber = Int(-99.2) ' 返回 -100.
MyNumber = Fix(-99.2) ' 返回 -99.
以上示例可以看出 用Int和Fix来对正负整数判断是不一样的
为了正负一致 可以通过这样做 通过整除来判断
y = InputBox("请输入要判断的数值")
If Val(y) 1 y Then MsgBox "y不是整数" Else MsgBox "y是整数"

Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 0
For i = 0 To 63
s = s + 2 ^ i
Next
Text1.Text = s
End Sub
结果:1.84467440737096E+19

可以先产生一个随机数来选择范围 然后根据这个范围来选择随机数范围再产生一个随机数.
比如
Option Explicit
Private Sub Command1_Click()
Dim x,y
Randomize
x = Int(Rnd * 3)'先产生一个随机数 随机选择一个范围
Select Case x
Case 0
y = Int(Rnd * 10) + 48
Case 1
y = Int(Rnd * 25) + 65
Case 2
y = Int(Rnd * 25) + 97
End Select
Print y
End Su

x>0 and x

第一题：
Private Sub Command1_Click()
Dim a!, b!, c!, d!, x!
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
x = Text5.Text
Label1.Caption = f(a, b, c, d, x)
End Sub
Function f(a!, b!, c!, d!, x!)
f = a * x * x * x + b * x * x + c * x + d
End Function
第二题：
Private Sub Command1_Click()
List2.Clear '清除list2的内容
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List2.AddItem List1.List(i) '添加list1中选中的项目
Next i
End Su

'10元和50元两种纸币组成240元,列出所有不同的取法和种数.
Private Sub Command1_Click()
Dim a%,b%,count%
For a = 1 To 19
For b = 1 To 4
If a * 10 + b * 50 = 240 Then
Print a; "张10元和"; b; "张50元"
count = count + 1
End If
Next b
Next a
Print "共有"; count; "种不同的取法"
End Sub
'1xx47 ,知道这5位数是57或67的倍数,输出所有满足条件的5位数,并统计这样数的个数.
Private Sub Command1_Click()
Dim i%,count%
For i = 10047 To 19947 Step 100
If i Mod 57 = 0 Or i Mod 67 = 0 Then
Print i
count = count + 1
End If
Next
Print "共有"; count; "个这样的数"
End Sub
'鸡兔同笼共50只,有腿160只,求鸡和兔各多少只?
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
h = 50
f = 160
x = 2 * h - f / 2
y = f / 2 - h
MsgBox "鸡的只数为：" & x & vbCrLf & "兔子的只数为：" & y
End Su

字符是要用双引号括起来滴

Private Sub Command1_Click()
Dim A As Single,B As Single,C As Single
Dim R1 As Single,R2 As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C < 0 Then
MsgBox "该方程无解."
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有一个根为" & R1 & "."
Else
R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."
End If
End Su

如果给定了一组数,假如为12 15 6 13 35 42 21 9 求最大值最小值如下：
private sub command1_（）
dim a(7) as integer
min=12
max=12
for i = 1 to 7
if a(i) 〉 max then
max = a(i)
elseif a(i)

n=log(10*s)/log(2)

只要判断出输入的数是奇数还是偶数就行了：可以试试以下代码.
Private Sub form_click()
Dim y,x '定义了两个变体变量
x = InputBox("请输入一个整数","数据输入")
If x = "" Then '判断输入的数是否为空值
MsgBox "请输入一个整数",,"提示"
Exit Sub
End If
x = CDbl(x)
If Int(x) x Then '判断输入的数是不是整数
MsgBox "请输入一个整数",,"提示"
Exit Sub
End If
If x Mod 2 = 0 Then
y = x / 2
Print "您输入的是偶数,y=x/2=";
ElseIf x Mod 2 0 Then
y = 2 * x
Print "您输入的是奇数数y=2x=";
End If
Print y
End Su

a+b-2*a
在vb中不能直接用“2a”表示“2倍的a”,需要用明确的计算符号表示
同意楼下的,这个题的选项是有问题的

Private Sub Form_Click()
Dim i,n,temp
n = Val(InputBox("N","",10)) ^ 3
For i = 1 To n Step 2
temp = fc(i,n)
Next
MsgBox temp & "=" & n
End Sub
Function fc(i,n) As String
Dim j,s,temp
For j = i To n Step 2
s = s + j
fc = fc & j & "+"
If s = n Then
i = n
fc = Left(fc,Len(fc) - 1)
Exit For
End If
If s > n Then Exit For
Next
End Function

Private Sub Form_Click()
For i = 2 To 1000
s1 = 0
For i1 = 1 To i
If i Mod i1 = 0 Then s1 = s1 + 1
Next
If s1 = 2 Then s = s + i

Next
Print s
End Su

来个短一点的,
Private Sub Form_click()
Cls
Dim a() As Single
n = Val(InputBox("请输入行数","杨辉三角",5))
ReDim a(n + 1,n + 1)
For i = 1 To n
For j = 1 To i
a(i,1) = 1
a(i,i) = 1
a(i + 1,j + 1) = a(i,j) + a(i,j + 1)
Print a(i,j);
Next j
Print
Next i
End Su

1^2+2^2+3^2+4^2+……+n^2>1000
这句不可以直接出现的,不符合VB语法,但在上面的代码里,这行代码前面加有单引号“'”,表示后面的为注释(在VB6.0里,注释的文字颜色默认为绿色,注释是不被执行的).
Do While sum < 1000#
这是小于没错的,sum是变量,这个变量在前面已经声明了(“Dim sum, i”这句是声明 sum 和 i 这两个变量的代码),可以直接使用.
“Do While sum < 1000#”我觉得这句写成“Do While sum

B

#1/11/2009# 这个是日期 月/日/年

没问题了吧

private sub form_load()
dim i,a,b,c as integer
for i=100 to 999
a=i100
b=(i-a*100)10
c=i-a*100-b*10
if a+b+c=10 then print i,
next
end su

你的意思应该是:(83)*(61 Mod 5)吧,是吗?
平时写代码时这种优先级不确定的最好加括号
你那样写是计算:3*61,再求与8的商,最后求与5的余.
*的优先级比(求商)及MOD(求余)都高

Dim i As Integer
Dim s As Integer
Dim T As Integer
Dim n As Integer
n = Val(InputBox("请输入n值；"))
s = 0
T = 0
For i = 1 To n
T = T + i
s = s + T
Next i
Print s

Private Sub Command1_Click()
Dim I As Integer,N As Integer,Max As Integer,Min As Integer
Min = 100
Randomize
For I = 1 To 20
N = Int(51 * Rnd) + 50
If N > Max Then Max = N
If N < Min Then Min = N
Next I
Print "最大值："; Max
Print "最小值："; Min
End Su

不好意思 我好久没用vb了 大概如下
dim c as single
dim x as single
x=inputbox("输入x")
c=5*(x-32)/9
print c
我以前把vb删了 不能试 你试试吧

哈 慢慢想吧

做完了,不用任何控件,代码如下：
Dim M(6) As Byte, H(6) As Byte
Dim G(3) As Byte
Dim I As Byte, J As Byte, Hj As Integer
Const N = 10, X = 6, Y = 33
Private Sub Form_Click()
Cls
For I = 0 To X
M(I) = I: H(I) = 0
Next
Hj = 0
I = 1
Call ZuHe
Print "共有以上"; Hj; "个结果符合题目要求."
Print "单击窗口重做一遍."
Print: Print "双击窗体退出程序."
End Sub
Sub ZuHe()
Do While M(I) = 1 And M(J) = 7 And M(J) 30 And H(I) < 34) And (G(1) > 0 And G(1) < 3) And (G(2) > 0 And G(2) < 4) And (G(3) > 0 And G(3) < 3) Then
Hj = Hj + 1
Print Hj;
For J = 1 To X
If J > 1 Then Print "-";
Print M(J);
Next
Print
End If
ElseIf H(I) < Y Then
I = I + 1
M(I) = M(I - 1) + 1
Call ZuHe
I = I - 1
End If
M(I) = M(I) + 1
DoEvents
Loop
End Sub
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Caption = "S.T.S.-数字求和"
Form1.Width = 10000
Form1.Height = 5000
Print "本程序不用任何控件,点击窗口即可运行,结果将显示在窗口内.双击窗体退出程序."
Print: Print: Print "单击窗口继续."
End Sub
已经运行过.如果有什么问题请再留言.祝你学习进步!

Private Sub Form_click()
Dim A(1 To 10)
Randomize
For I = 1 To 10
A(I) = Int(Rnd * 90) + 10
Next I
For I = 1 To 9 '选择法
p = I
For J = I + 1 To 10
If A(J) < A(I) Then
p = J
End If
Next J
tem = A(I)
A(I) = A(p)
A(p) = tem
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
For I = 1 To 9 '冒泡法
For J = 1 To 10 - I
If A(J) > A(J + 1) Then
tem = A(I)
A(I) = A(p)
A(p) = tem
End If
Next J
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I
End Sub
已经调试过

Randomize '时间随机数 function RandShu() as Singer RandShu=CSinger( (2.5- 1.5+ 1) * Rnd + 1.5) end functoin

h=Hour(Time)+m/60