急求：VB编程1到100求和
来自： 更新日期：早些时候
VB编程求1到100整数和~
For i = 1 To 100
s = s + i
Next
MsgBox "1到100的和为:" & s
End Sub
dim i as integer
dim s=0 as integer
for i = 1 to 100
s = s + i
next i
text1.text = s
msgbox("1到100的和为：val(text1.text)")
dim i as integer
dim sum as interger
for i =1 to 100
sum=sum+i
next i
msgbox(sum)
急求：VB编程1到100求和视频
相关评论：15677468674：急求:VB编程1到100求和
汲雅黛Private Sub Command1_Click()For i = 1 To 100 s = s + i Next MsgBox "1到100的和为:" & s End Sub
15677468674：利用循环语句 用VB计算1到100的奇数的和
汲雅黛Private Sub Command1_Click() Dim i As Integer Dim s As Integer For i = 1 To 100 If i Mod 2 <> 0 Then s = s + i End If Next MsgBox sEnd Sub
15677468674：VB编程 急求 随机产生n个1~100之间的数(包含1和100),求最大值,最小值...
汲雅黛Print "生成的数字:"For I = 1 To 5 '数组里面有5个不同数值a1,a2,a3,a4,a5，此处I的最大值n对应Dim中的a(n)(可以改变最大值来改变需要的输出的数据数量)' I = 0 to n 表示I的取值有n-0+1个 a(I) = Int(Rnd * 99) + 1 '数组内产生1~100的随机数 Print a(I);z = z ...
15677468674：急求VB。通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将...
汲雅黛Private Sub Command1_Click()Dim i As Integer, x As Integer, s As Long Randomize For i = 1 To 30 x = Int(Rnd * 100) + 1 Print x,If (i Mod 5) = 0 Then Print s = s + x Next Print "平均数="; s \/ 30 End Sub ...
15677468674：急求用vb求1!+3!+5!+...+(2n-1)! 的代码
汲雅黛楼上回答的很好，补充一下：Dim a, sum, n As Integer Private Sub Form_Click()a = 1 sum = 1 n = InputBox("输入N")For i = 3 To 2 * n - 1 Step 2 a = a * (i - 1) * i sum = sum + a Next i Print sum End Sub ...
15677468674：急求:1+1\/4+1\/9+1\/16+…1\/N^2=?(求和这样的数列求和有公式吗)
汲雅黛VB:Dim i%,n%,f as Double n=Val(Inputbox("输入n"))f=0 for i=1 to n f=f+1\/(i^2)next i Msgbox(f)VC:include<stdio.h> main(){ int a,b;double c;scanf("%d",&a);for(b=0;b>=n,b++){ c=c+1\/b\/b;} printf("%f",c);scanf("%f,c);\/\/查看结果 } 如果...
15677468674：急求!!!vb编程 100以内的加法运算
汲雅黛Private Sub Command1_Click()Randomize da = ""tm = tm + 1 N1 = Int(Rnd() * 100)N2 = Int(Rnd() * 100)ti.Caption = N1 & "+" & N2 & "="End Sub Private Sub Command2_Click()pd End Sub Sub pd()If N1 + N2 = Val(da) Then MsgBox ("对了")'再录点音，如恭喜...
15677468674：急求VB中,关于单价与总额的代码
汲雅黛'text1输入数量,text2输入单价,text3显示总额,代码如下:private sub text1_change()if isnumeric(text1.text) then if text2.text<>"" then text3.text=val(text2.text)*val(text1.text)end if else msgbox "请输入数字!"text2.setfocus exit sub end if end sub private sub text2_...
15677468674：急求使用VB编写一段代码算蝴蝶数
汲雅黛Private Sub Command1_Click()For i = 100 To 999 DoEvents If i = CInt(Mid(CStr(i), 1, 1)) * CInt(Mid(CStr(i), 1, 1)) * CInt(Mid(CStr(i), 1, 1)) + CInt(Mid(CStr(i), 2, 1)) * CInt(Mid(CStr(i), 2, 1)) * CInt(Mid(CStr(i), 2, 1)) + CInt(Mid...
15677468674：急求vb程序,随机显示1至40间的数字,同时显示数字对应人名
汲雅黛Dim srt(1 To 40) As String Private Sub Command1_Click()Dim RanDom, MaxiMum MaxiMum = UBound(srt) + 1 Randomize '\/**随机取值初始化**\/ RanDom = Int(Rnd * MaxiMum) + 1 '获取随机值 msgbox RanDom & srt(RanDom)End Sub Private Sub Form_Load()srt(1) = "我"srt(2) = ...
Private Sub Command1_Click()
Dim a
Dim sum
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub
最后在窗体上显示出来的就是你要求的和
dim s,i as integer 最好写成 dim s as integer,i as integer
设置窗体的AutoRedraw 属性为 True，可以在form_load中这么写
Me.AutoRedraw = True
For i = 1 To 100
s = s + i
Next
MsgBox "1到100的和为:" & s
End Sub
dim i as integer
dim s=0 as integer
for i = 1 to 100
s = s + i
next i
text1.text = s
msgbox("1到100的和为：val(text1.text)")
dim i as integer
dim sum as interger
for i =1 to 100
sum=sum+i
next i
msgbox(sum)
急求：VB编程1到100求和视频
相关评论：
汲雅黛Private Sub Command1_Click()For i = 1 To 100 s = s + i Next MsgBox "1到100的和为:" & s End Sub
汲雅黛Private Sub Command1_Click() Dim i As Integer Dim s As Integer For i = 1 To 100 If i Mod 2 <> 0 Then s = s + i End If Next MsgBox sEnd Sub
汲雅黛Print "生成的数字:"For I = 1 To 5 '数组里面有5个不同数值a1,a2,a3,a4,a5，此处I的最大值n对应Dim中的a(n)(可以改变最大值来改变需要的输出的数据数量)' I = 0 to n 表示I的取值有n-0+1个 a(I) = Int(Rnd * 99) + 1 '数组内产生1~100的随机数 Print a(I);z = z ...
汲雅黛Private Sub Command1_Click()Dim i As Integer, x As Integer, s As Long Randomize For i = 1 To 30 x = Int(Rnd * 100) + 1 Print x,If (i Mod 5) = 0 Then Print s = s + x Next Print "平均数="; s \/ 30 End Sub ...
汲雅黛楼上回答的很好，补充一下：Dim a, sum, n As Integer Private Sub Form_Click()a = 1 sum = 1 n = InputBox("输入N")For i = 3 To 2 * n - 1 Step 2 a = a * (i - 1) * i sum = sum + a Next i Print sum End Sub ...
汲雅黛VB:Dim i%,n%,f as Double n=Val(Inputbox("输入n"))f=0 for i=1 to n f=f+1\/(i^2)next i Msgbox(f)VC:include<stdio.h> main(){ int a,b;double c;scanf("%d",&a);for(b=0;b>=n,b++){ c=c+1\/b\/b;} printf("%f",c);scanf("%f,c);\/\/查看结果 } 如果...
汲雅黛Private Sub Command1_Click()Randomize da = ""tm = tm + 1 N1 = Int(Rnd() * 100)N2 = Int(Rnd() * 100)ti.Caption = N1 & "+" & N2 & "="End Sub Private Sub Command2_Click()pd End Sub Sub pd()If N1 + N2 = Val(da) Then MsgBox ("对了")'再录点音，如恭喜...
汲雅黛'text1输入数量,text2输入单价,text3显示总额,代码如下:private sub text1_change()if isnumeric(text1.text) then if text2.text<>"" then text3.text=val(text2.text)*val(text1.text)end if else msgbox "请输入数字!"text2.setfocus exit sub end if end sub private sub text2_...
汲雅黛Private Sub Command1_Click()For i = 100 To 999 DoEvents If i = CInt(Mid(CStr(i), 1, 1)) * CInt(Mid(CStr(i), 1, 1)) * CInt(Mid(CStr(i), 1, 1)) + CInt(Mid(CStr(i), 2, 1)) * CInt(Mid(CStr(i), 2, 1)) * CInt(Mid(CStr(i), 2, 1)) + CInt(Mid...
汲雅黛Dim srt(1 To 40) As String Private Sub Command1_Click()Dim RanDom, MaxiMum MaxiMum = UBound(srt) + 1 Randomize '\/**随机取值初始化**\/ RanDom = Int(Rnd * MaxiMum) + 1 '获取随机值 msgbox RanDom & srt(RanDom)End Sub Private Sub Form_Load()srt(1) = "我"srt(2) = ...
