Dim s as long ,x as integer s=0 For x=9to10 Step2 S=s+x Next xText1.Text=sS的值是多少,答案为什么是25

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/19 21:04:24
Dimsaslong,xasintegers=0Forx=9to10Step2S=s+xNextxText1.Text=sS的值是多少,答案为什么是25Dimsaslong,xasintegers=0

Dim s as long ,x as integer s=0 For x=9to10 Step2 S=s+x Next xText1.Text=sS的值是多少,答案为什么是25
Dim s as long ,x as integer s=0 For x=9to10 Step2 S=s+x Next x
Text1.Text=s
S的值是多少,答案为什么是25

Dim s as long ,x as integer s=0 For x=9to10 Step2 S=s+x Next xText1.Text=sS的值是多少,答案为什么是25
s在什么情况下等于25?答:在算错的情况下.
如果上面是你全部的代码,执行结果应该是9,而不是25.

0402 Private Sub Command1_Click() Dim a As Single,b As Single Dim c As Single,d As Single Dim m A0401Private Sub Form_Load()Dim x As Long,s As Stringx = InputBox(输入一个整数(1~40000))If x Mod 2 = 0 Thens = 偶数Elses = 奇数End IfMsgBo VB中 Option ExplicitPrivate Sub Form_Click()Dim 5Fg Integer (1)Dim L * og As Long (2)Dim s - ig As Single (3)Dim dob_ As Double (4)Dim _Name AS String (5)Dim bln@ Frag As Boolean (6)Dim do As Data (7)End Sub电脑上的提示 您给我的计算公式没有去处重复的组合呀!就是33个数字的那个.如题 原程序:Sub tt() Application.ScreenUpdating = False Dim i,j,k,l,m,n As Integer Dim Ar(33) As Integer,Arsum As Long,tempSum As Long Dim x As Long Dim FS As Ob Dim s as long ,x as integer s=0 For x=9to10 Step2 S=s+x Next xText1.Text=sS的值是多少,答案为什么是25 as long as it's long 请帮忙解释下面语句意思-2'填写遗漏值 Dim n As Integer Dim arrR() As Integer, arrB() As Integer ReDim arrR(5), arrB(5) Dim r As Range Dim k As Long Dim t As Integer arrR(0) 100-1000之间的质数的个数及其和(75067 143个)Private Sub Command1_Click()Dim x As Integer,flag As Boolean,n As Integer,s As Long,k as integerFor x = 100 To 1000flag = Truen = 2While n < xIf x Mod n = 0 Thenflag = FalseEnd Ifn = n + 1Wen 用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k As Integer,m As Doublei = 1k = 1pi = 0m = 1While (m > 0.00001)m = 1 / (2 * i - 1)pi = pi + k * mi = i + 1k = -kWendPrint π ; 4 * piEnd SubPrivate Sub Form_Click()Dim pi,c,s As Single vb 函数的值传给参数dim a ,b as long ABC a,bFunction ABC (X as long ,y as long ) as long x = x +99y=y + 88end function 如何 在这个函数执行完之后 把x和y 的值传给a和b Dim a(9) As Integer,x As Integer,k As Integer,I As Integer RandomizeDo While I Dim s As Long,n As SinglePrivate Sub Command1_Click()n = 0Do While s < 20n = n + 1s = 12 * (1 + 0.01) ^ nLoopPrint n; 年后我国人口将增长到20亿EndEnd Sub VB编程,一元二次方程a*x^2+b*x+c=0的根Dim a As Double Dim b As Double Dim c As Double Dim delta As Double Dim x1 As Double Dim x2 As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) delta = b * b - as long “as long as it AS LONG AS 用法 As long as you as long as as long as 意思