Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3&
我为什么没人爱2022-10-04 11:39:541条回答
Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3 x=3 For k=1 To 2 x=x+6 Next k Nex
为什么只是加到第二步
为什么只是加到第二步
已提交，审核后显示！提交回复
共1条回复
JACK_WALK 共回答了13个问题 |采纳率100%- 因为你每个循环都初始化x的值 你一个x=3代码把前面加的都作废了
所以只执行最后一个
For k=1 To 2
x=x+6
Next - 1年前
相关推荐
- 解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1
解一道vb函数题,private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,n...
解一道vb函数题,
private sub command1 _click(),for i =1to4 ,for j =1to3 ,x=3 ,for k=1to 2,x=x+3,next k ,next j ,next i ,text1 .text =str(x忧郁藤蔓1年前1 -
黄敏998 共回答了17个问题
|采纳率82.4%在j循环时被初始化x=3,所以只有最后一次循环才决定x的值,即i=4,j=3时,k循环x+3两次,得x=91年前查看全部
- VB的if语句的问题Private Sub Command1_Click()If Text1 = "111" ThenF
VB的if语句的问题
Private Sub Command1_Click()
If Text1 = "111" Then
Form3.Show
End If
Else
If Text1 = "" Then
MsgBox "错误!"6,"系统错误"
End If
End Sub
怎么改
当Text1=111时 Form3.show
当Text1不是111时 MsgBox "错误",6,"系统错误"
怎么写?jzklchen1年前1 -
十二点后睡觉 共回答了17个问题
|采纳率88.2%Private Sub Command1_Click()
'先判断为空时则出错
If Text1 = "" Then
MsgBox "错误!"6,"系统错误"
exit sub
end if
If Text1 = "111" Then Form3.Show
End Sub
或者
Private Sub Command1_Click()
If Text1 = "111" Then
Form3.Show
else
MsgBox "错误!"6,"系统错误"
end if
End Su1年前查看全部
- Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a
Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a = a + 1 Next j Next i Print a End Subjluketty1年前1
-
maggie118 共回答了27个问题
|采纳率81.5%为了说明方便,给每个语句前面加上行号
1 for i=1 to 3
2 for j=i to 1
3 a=a+1
4 next j
5 next i
6 print a
程序执行语句1时,循环初值 i=1 小于终值3,所以程序执行语句2－4
语句2 因i=1,所以循环初值 j=1 等于终值1,所以程序执行语句3 ( a=a+1),如果前面没有给a设置过数值,那么a的初始值为0,那么a=1；如果前面给变量a设置过数值,那么a=原值+1
语句4 next j 意思就是j+1,因为j=1,所以j+1=2比循环终值1大,结束该循环.执行语句5
语句5与语句4意思一样,因为i=1,所以i+1=2比循环终值3小,返回执行语句2
语句2 因i=2,所以循环初值j=2大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=2,所以i+1=3等于循环终值3,返回执行语句2
语句2 因i=3,所以循环初值j=3大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=3,所以i+1=4大于循环终值3,结束循环,执行语句6
语句6 print a 是在窗体输出变量 a 的值.(如果前面没有给a设置过数值,那么a=1；如果前面给变量a设置过数值,那么a=原值+1)1年前查看全部
- Private Sub Command1_Click() s = p(1) + p(2) + p(3) + p(4) P
Private Sub Command1_Click() s = p(1) + p(2) + p(3) + p(4) Print s;
Private Sub Command1_Click()
s = p(1) + p(2) + p(3) + p(4)
Print s;
End Sub
Public Function p(n As Integer)
Static sum
For I = 1 To n
sum = sum + I
Next I
p = sum
End Function逐猫1年前1 -
cici4123 共回答了19个问题
|采纳率89.5%static sum 是静态的变量,他不会自动清空.p(1)=0+1=1;p(2)=sum+1+1=3;p(3)=sum+1+1+1=6;t同理p(4)=10;s=1+3+6+10=20.我把vb放下很久了.试着做一下.
答案是：20.1年前查看全部
- Private Sub Command1_Click() b=-15.1 a=sub1(2.54,b+10
Private Sub Command1_Click() b=-15.1 a=sub1(2.54,b+10) print "b=";b;"a=";a End Sub
Private Sub Command1_Click()
b=-15.1
a=sub1(2.54,b+10)
print "b=";b;"a=";a
End Sub
Public function sub 1(a As string,b as integer)as integer
b=b+10
a=-b
sub1=a
end function
运行程序后输出内容为（B）
B b=-15.1 a=-5
求详解zhouping00281年前1 -
magicleave 共回答了28个问题
|采纳率96.4%各值变化如下Private Sub Command1_Click()b=-15.1 a=sub1(2.54,b+10) 这句调用sub1函数,其中第二个参数的值为b+10=-5.1print "b=";b;"a=";a 这句是输出,分号的意思是紧凑连接输出End SubPublic function sub 1(a As...1年前查看全部
- 1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-
1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-2 y=y+2 loop until y>5 or x5 or xhh的ee阳1年前1
-
paisonzhou 共回答了18个问题
|采纳率94.4%是7,i=1 3次 i=2 to 5 4 次1年前查看全部
- 1段加法运算程序Private Sub Command1_Click()Text1.Text = str$(Val(Te
1段加法运算程序
Private Sub Command1_Click()
Text1.Text = str$(Val(Text2.Text) + Val(Text3.Text))
教程上是这么写的,但是我有点想不明白..
这样写不也一样么?
Private Sub Command1_Click()
Text1.Text = (Val(Text2.Text) + Val(Text3.Text))
val代表的不是把字符串转换成数值么,最后为什么要加个str$把得到的数值转换成字符串?
顺便告诉我为什么str前面要加个美元符,tyIcer1年前1 -
美丽的蝴蝶兰 共回答了25个问题
|采纳率92%val一定要加,因为内容来自textbox中,即为string类型,如果不用val转换为数字,中间使用+号时表示是字符串的连接符,即会出现"1"+"1"="11"的情况
str可加可不加,加了的意义和val意义类似,因为要写回一个textbox中,所以要以string类型写入,如果不加,编译器会替你完成这些事情,所以可加可不加
str后面的$表示是string类型,具体见MSDN中的说明
String 数据类型
字符串有两种：变长与定长的字符串.
变长字符串最多可包含大约 20 亿 ( 2^31)个字符.
定长字符串可包含 1 到大约 64K ( 2^16 ) 个字符.
注意 Public 定长字符串不能在类模块中使用.
String 之字符码的范围是 0 到 255.字符集的前 128 个字符（0 到 127）对应于标准的 U.S.键盘上的字符与符号.这前 128 个字符与 ASCII 字符集中所定义的相同.后 128 个字符（128 到 255）则代表特殊字符,例如国际字符,重音符号,货币符号及分数.String 的类型声明字符为美元号 ($).1年前查看全部
- 几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
几道VB程序题,
Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
If x Mod 2 = 1 Then
Label2.Caption = "偶数"
Else
Label2.Caption = "奇数"
End If
End Sub
如果Text1中输入的是28,则Label2的位置显示的是：_______________________.
2、 Private Sub Form_Click()
Dim i As Integer,S As Long
S = 0
For i = 15 To 0 Step -2
S = S + i
Next i
Print S
End Sub
程序的功能是：________________________________________________________________
运行结果是：__________________________________________________________________
3、 Private Sub Command1_Click()
Dim a,b As Integer
a=2.2
b=2.2
Text1.Text = a
Text2.Text =b
End Sub
程序运行后,Text1中显示：_____________；Text2中显示：______________
4、
Private Sub Form_Click()
s = 0
For i = 0 To 20 Step 2
s = s + i
Next i
Print s
End Sub
程序的功能是：____________________________________________________________；
运行结果是：______________________________________________________________
5、
Private Sub Form_Click()
K = 1:Sum = 0
For N = 1 To 5
K = K * N
Sum = Sum + K
Next N
Print Sum
End Sub
程序运行后,问SUM的值为（ ）
6、 a = 5:s = 0
Do While a > 0
s = s + a
a = a - 1
Loop
Print s; a
程序的功能是____________________________________________________________；
运行结果是_______________________________________________________________3463558201年前1 -
蓝色河畔边 共回答了15个问题
|采纳率100%奇数
求奇数和. 642 2
求偶数和. 110153循环求和 15 01年前查看全部
- vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp
vb求n阶乘表达式
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入一个正整数： ")
Print Fac(n)
End Sub
Private Function Fac(m) As Long
'' '请不要删除该行,只在下一行中填空'
For k = 2 to
Fac = Fac * k
Next k
End Function
longzhimai1年前1 -
wwwchenhui 共回答了19个问题
|采纳率100%Private Sub Command1_Click()Dim n As Integern = InputBox("请输入一个正整数：")Print Fac(n)End SubPrivate Function Fac(m) As Long'' '请不要删除该行,只在下一行中填空'For k = 2 To mFac = Fac * kNext kEnd...1年前查看全部
- VB.if sgn（x） Private Sub Command1_Click()Dim x As Integer,y
VB.if sgn（x）
Private Sub Command1_Click()
Dim x As Integer,y As Integer
x = -4
If Sgn(x) Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
End Sub
sgn函数不是为-1,0,或者1吗
if sgn（x）edfrer1年前1 -
topsyturvy 共回答了18个问题
|采纳率100%-1, 1 时为 true, 0 时为 false
if sgn（x） then.X不为0时均符合
这啰嗦代码是不是下面这功能
y=sgn(x^2)1年前查看全部
- 一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_C
一道关于VB的题目
如何用VB判奇偶
我这个代码为什么不行
为什么什么数都是偶数?
Private Sub Command1_Click()
a = Val(Text1.Text)
If Int(n / 2) = n / 2 Then
b = "这个数是偶数"
Else
If Int(n / 1) = n / 1 Then
b = "这个数是奇数"
Else
b = "这个数不是整数"
End If
End If
Label2.Caption = b
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = ""
End Subalone_poona1年前1 -
独狼性 共回答了10个问题
|采纳率70%a = Val(Text1.Text) '你这里读的是a
If Int(n / 2) = n / 2 Then '到这里变成n了
改为
n = Val(Text1.Text)
就可以了1年前查看全部
- 33.设有如下程序Private Sub Command1_Click( )Dim sum As Double,x As
33.设有如下程序
Private Sub Command1_Click( )
Dim sum As Double,x As Double
sum = 0
n = 0
For i=1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环来计算一个表达式的值,这个表达式是______.
A、1+1/2+2/3+3/4+4/5 B、1+1/2+1/3+1/4+1/5
C、1/2+2/3+3/4+4/5 D、1/2+1/3+1/4+1/5求职找工作1年前1 -
用户伊莲 共回答了22个问题
|采纳率90.9%选C,是个循环过程
从n=0 i=1开始,即第一个x=0/1=0
你n+1=1 然后i=2 x=1/2
...
循环到5 结束.1年前查看全部
- 求VB考试题目答案在窗体上有命令按钮，有如下事件代码 private sub command1_click() stat
求VB考试题目答案
在窗体上有命令按钮，有如下事件代码
private sub command1_click()
static x as integer
dim y as integer
cls
x=x+5
y=y+10
print x,y
end sub
程序运行时，三次单击命令按钮后，窗体上显示的结果是（ ）
A.5 10 B. 5 30 C.15 10 D.15 30
1、以下是实现下述操作的程序：在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。完成以下空处。
Private Sub Command1_Click() Timer1.( Enabled=true ) End Sub Private Sub Timer1_Timer() Text1. (caption )= Time End Sub
3、下面程序运行后，输出的结果是_____40__________。
For J=1 To 10
If J Mod 5 <> 0 Then A=A+J
Next J
Print A
End
4、阅读下面程序，该程序的作用是用随机函数RND产生10个100~200之间（包括100和200）的随机整数，打印其中7的整数倍的数并求其总和。请将程序补充完整。
FOR M=1 TO 10
X=______int(101*rnd+100)__________
PRINT X;
IF (_______x mod 7=0_________) THEN PRINT X: K1= K1+X
NEXT M
PRINT “K1=“ ; K1
END
5、假定建立了一个工程，该工程包括两个窗体，其名称（NAME属性）分别为Forml和Form2,启动窗体为Form1。在Form1上画一个命令按钮Commandl，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2窗体，请将程序补充完整。
Private Sub Commandl_Click()
_Form1.hide____________________
Form2.show
End Sub
6、在窗体画一个命令按钮，然后编写如下事件过程：
private sub command1_click()
dim a(1 to 10)：dim p(1 to 3)
k=5
for I=1 to 10
a(i)=i
next I
for I=1 to 3
p(i)=a(i*i)
next I
for I=1 to 3
k=k+p(i)*2
next I
print k
end sub
程序运行后，单击命令按钮，输出结果是____28___________。
7、若使窗体上的文本框Text1在得到焦点后，所显示的文本内容全部选中，完成以下过程。
Privaet Sub Text1_GotFocus()
Text1.Selstart=_______0________
Text1.SelLength=_________len(text1.text)______________
End Sub
8、在窗体中画一个命令按钮和两个文本框，然后编写以下事件过程：
Private Sub Commandl_Click()
X=0
DO WHILE X<50
X=（X+2）*（X+3）
n=n+1
Loop
Text1.Text=str(n)
Text2.Text=str(x)
两个文本框Text1、Text2显示的值分别是___2________、________72____。
11、求两个数的最大公约数算法中，结果由text1文本框显示，完成以下程序段。
If n*m=0 then
Msgbox“两个数都不能为0！”
Exit sub
End if
If mT=m:m=n:n=t
End if
Do
__r=m mod n_________________
m=n
n=r
loop while r<>0
text1.text=___________m________
擦GI呀1年前1 -
287294516 共回答了17个问题
|采纳率82.4%在窗体上有命令按钮，有如下事件代码
private sub command1_click()
static x as integer
dim y as integer
cls
x=x+5
y=y+10
print x,y
end sub
程序运行时，三次单击命令按钮后，窗体上显示的结果是（ c ）
A.5 10 B. 5 30 C.15 10 D.15 301年前查看全部
- Private Sub Command1_Click()
Private Sub Command1_Click()
Dim count(25) As Integer,ch As String
ch = UCase(InputBox("qing shu"))
For k = 1 To Len(ch)
n = Asc(Mid(ch,k,1)) - Asc("A")
If n >= 0 Then
count(n) = count(n) + 1
End If
Next k
m = count(0)
For k = 1 To 25
If m < count(k) Then
m = count(k)
End If
Next k
Print m
End Sub
m的输出值是多少 为什么呢
输入的数据是 Visual Basic Programming伊虹1年前1 -
明天可以看金鹰 共回答了26个问题
|采纳率96.2%输出：31年前查看全部
- b求π为啥是错的Private Sub Command1_Click()Dim s As Integer,n As Do
b求π为啥是错的
Private Sub Command1_Click()
Dim s As Integer,n As Double,u As Double,pi As Double,pii As Double
While Abs(u) >= 0.001
pi = pi + u
n = n + 2
s = -s
u = s / n
pii = 4 * pi
Wend
Print pii
End Sub偶稀饭你1年前1 -
alau1379 共回答了15个问题
|采纳率100%你要循环多少次呢?如果S开始是正的话,你循环一次不是变了负了吗?那U=S/N也变负了,那
Abs(u)>=0.001就不符合,跳出循环了1年前查看全部
- Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k)
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k) = 11 - k Next k x = 5 Print m(2 + m(x))
VB的一个程序恒雨1年前1 -
jjgsrq 共回答了17个问题
|采纳率94.1%Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
这就是个绕弯子的程序,没什么意义,考你的理解能力的.严格的说,这个程序可能有错误,Dim m(10)应该改成Dim m(1 to 10),否则m的下标范围是m(0 to 9),m(10)=11-k会出错误.不谈这个错误,说下程序的意思：
for的循环是给m(1)到m(10)赋值,成为：
m(1)=11-1=10
m(2)=11-2=9
m(3)=11-3=8
m(4)=7
m(5)=6
m(6)=5
m(7)=4
m(8)=3
m(9)=11-9=2
m(10)=11-10=1；
然后赋值x=5
最后m(2+m(x))=m(2+m(5))=m(2+6)=m(8)=3
明白了吗?下次拜托把程序贴到内容栏里,别贴题目上太累眼神了.1年前查看全部
- private sub command1_click() a=10:s=0 do s=s+a*a*a a=a-1 loo
private sub command1_click() a=10:s=0 do s=s+a*a*a a=a-1 loop until ajoyce8210251年前1
-
cz_hjp 共回答了15个问题
|采纳率86.7%答案是1的三次方+2的三次方+3的三次方+……+10的三次方.
把你的“3”写小点,变成上标,就对了.1年前查看全部
- Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To 1 Step -1 Print Spc(5); For j = 1 To 2
Private Sub Command1_Click()
Dim i,j As Integer
For i = 3 To 1 Step -1
Print Spc(5);
For j = 1 To 2 * i - 1
Print "*";
nextj
Print
Next i
End Sub
请问它为什么错了?VB弹出提示框说过程或子程序未定义.朗心似铁1年前1 -
fanwilder1 共回答了17个问题
|采纳率82.4%代码写错了
nextj 改为next j
中间要有空格,或者你直接写next1年前查看全部
- private sub command1_click() i=0 do s=s+i i=i+1 loop until i
private sub command1_click() i=0 do s=s+i i=i+1 loop until i>=4s end sub
private sub command1_click()
i=0
do
s=s+i
i=i+1
loop until i>=4s
end sub
程序执行s 的值是?
(答案是32,）yitieluoguixiang1年前0 -
共回答了个问题
|采纳率
- Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n
Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n For j=1 To i x=x+1 Next j Next i Print比穆为邻1年前1
-
wangwwwww 共回答了14个问题
|采纳率100%显示61年前查看全部
- 一道vb题目Private Sub Command1_Click() x = -5 If Sgn(x + 5) Then
一道vb题目
Private Sub Command1_Click()
x = -5
If Sgn(x + 5) Then
y = Sgn(x + 2) * Sgn(x - 2)
Else
y = Sgn(x)
End If
Print y
End Sub
为什么算到 Sgn(x + 5)时就跳到 y = Sgn(x)算了呢?怎么算的啊?
急用啊ttttmusic1年前1 -
又见炊烟升起呦 共回答了16个问题
|采纳率100%sgn函数
x>0,sgnx=1
x=0,sgnx= 0
x1年前查看全部
- Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1
Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Nex
Private Sub Command1_Click()
For i = 1 To 4
x = 4
For j = 1 To 3
x = 3
For k = 1 To 2
x = x + 6
Next k
Next j
Next i
Print x
End Subwjh1231年前1 -
naotantang110 共回答了13个问题
|采纳率92.3%i=4时,j=3,x=3
k=1 x=3+6
k=2 x=9+6=15
最后打印151年前查看全部
- vb解二次函数代码问题!代码如下Private Sub Command1_Click()Dim a As Single,
vb解二次函数代码问题!
代码如下
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single
Dim n As Single,m As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c < 0 Then
Label3.Caption = "无解"
Else
n = -b + (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * a
m = -b - (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * a
Label3.Caption = "" + CStr(n) + " " + CStr(m) + ""
End If
End Sub
请问 哪错了?yyttddss1年前1 -
zdzww 共回答了17个问题
|采纳率100%一、你没有考虑a＝0 的情况
二、n= 和m＝ 这两句,你要把 2*a 用() 括起来做分母 或者你把 * 号,换成除号 / 就不用括起来了!
还有楼上说的,分子也要括起来!哈哈1年前查看全部
- VB求素数Private Sub Command1_Click()For I = 2 To 100 '循环引用100至2
VB求素数
Private Sub Command1_Click()
For I = 2 To 100 '循环引用100至200之间的所有整数
For J = 2 To I - 1 '根据素数的定义,循环引用从2开始到整数I之前的所有整数进行判断
If I Mod J = 0 Then '如果I能够被J整除,说明I不是素数
Exit For '退出循环
End If
Next J
If J = I Then '如果J=I,说明I不能被从2开始到整数I之前的所有整数整除,即I是素数
Print I;
End If
Next I
End Sub
上面代码中的“ If J = I Then '如果J=I,说明I不能被从2开始到整数I之前的所有整数整除,即I是素数 ”aa13585051年前1 -
bingo42 共回答了16个问题
|采纳率93.8%关键出现在第六行的“next j”上,
当j的循环一直循环的i-1时,即一直没有跳出循环时.当到j=i-1时,但它要继续向下运行,此时的next j还要再向后加1,即j=i-1+1,也就是j=i.
你如果没有看懂,就运行一下下面的程序,一目了然.结果是4.
Private Sub Command1_Click()
For i = 1 To 3
Next i
Print i
End Su1年前查看全部
- Private Sub Command1_Click() Dim i As Double,M As Double,L A
Private Sub Command1_Click() Dim i As Double,M As Double,L As Double,E As Double,K As Double,Piamsmilee1年前1
-
jeffsheb78 共回答了9个问题
|采纳率88.9%这是什么东东,就定义了几个变量吧1年前查看全部
- 0402 Private Sub Command1_Click() Dim a As Single,b As Singl
0402 Private Sub Command1_Click() Dim a As Single,b As Single Dim c As Single,d As Single Dim m A
0401
Private Sub Form_Load()
Dim x As Long,s As String
x = InputBox("输入一个整数(1~40000)")
If x Mod 2 = 0 Then
s = "偶数"
Else
s = "奇数"
End If
MsgBox s
End Sub
Private Sub Command1_Click()
Dim a As Single,b As Single
Dim c As Single,d As Single
Dim m As Single,n As Single,x As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
If a > b Then
m = a
Else
m = b
End If
If c > d Then
n = c
Else
n = d
End If
If m > n Then
x = m
Else
x = n
End If
Text5.Text = x
End Sub玫瑰的情愫1年前1 -
依然的艾凡多利 共回答了18个问题
|采纳率61.1%你好像是查询abcd四个数的最大数,你使用的这个方法不理想,在VB中一般使用排序进行判断,排序是将数据存储在数组中,你的程序可以定义一个数组,然后进行排序：
Private Sub Command1_Click()
Dim a(1 To 4) As Single,x As Single
a(1) = Val(Text1.Text):a(2) = Val(Text2.Text):a(3) = Val(Text3.Text):a(4) = Val(Text4.Text)
For i = 1 To 3
For j = 1 To 4 - i
If a(j) < a(j + 1) Then
x = a(j)
a(j) = a(j + 1)
a(j + 1) = x
End If
Next j
Next i
Text5.Text = "最大值是：" & CStr(a(1)) & ",最小值是：" & CStr(a(4))
End Su1年前查看全部
- 帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo
帮忙看哈错在哪里呀.
Private Sub Command1_Click()
Dim ,b$
a = Val(InputBox("输入1-7之间的一个整数"))
selectcase a
Case 1
MsgBox ("今天是" & monday)
Case 2
MsgBox ("今天是" & tuesday)
Case 3
MsgBox ("今天是" & wednesday)
Case 4
MsgBox ("今天是" & thursday)
Case 5
MsgBox ("今天是" & friday)
Case 6
MsgBox ("今天是" & saturday)
Case 7
MsgBox ("今天是" & sunday)
End Select
End Sub小笼生煎10151年前1 -
少根玄 共回答了9个问题
|采纳率100%看样子你是想将输入的数字转英文.
monday、tuesday……要么是变量,要么是字符串.
如果是变量,看看你初始化没有；
如果是字符串,为什么不放到引号里面?1年前查看全部
- Private Sub Command1_Click()
Private Sub Command1_Click()
Dim total As Integer
total = s(1) + s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i = 1 To m
x = x + 1
Next i
s = x
End Function
单击Command1三次的结果fengoyu1年前1 -
火琰焱 共回答了17个问题
|采纳率94.1%第一次单击时,进入s,定义一次x（以后都不会再重新定义,就是说Static使得x在程序一运行时就有了,三次单击都用的是同一个x）,s(1)=0+1=1 (x=1),s(2)=(x+1)+1=3 (x=3),total=4;(s、x值为最后一次循环的结果值)
第二次单击时,进入s,用已存在的x（并没有定义一个新的x,x为上一次单击后的x值,即为3）,s(1)=x+1=4 (x=4),s(2)=(x+1)+1=6 (x=6),total=10;
第二次单击时,进入s,s(1)=x+1=7 (x=7),s(2)=(x+1)+1=9 (x=9),total=16;
这主要就是理解Static的作用,静态变量全局运行就只有一个1年前查看全部
- SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod
SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod 5 0 Then/s=s+j/End If/Next j
/Print s/End Sub程序运行后,单击命令按钮,输出的结果是_________.mintlian1年前1 -
h01802000 共回答了20个问题
|采纳率95%1+2+3+4+6+7+8+9+11+12+13+14+16+17+18+19=1601年前查看全部
- 求教：大神看看是哪里出错了 Private Sub Command1_Click()If Trim(txtName.Te
求教：大神看看是哪里出错了
Private Sub Command1_Click()
If Trim(txtName.Text) = "" Then
MsgBox "请输入单位名称"
txtName.SetFocus
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = txtName.Text
Adodc1.Recordset.Fields("district") = txtdistrict.Text
Adodc1.Recordset.Fields("category") = txtcategory.Text
Adodc1.Recordset.Fields("delegate") = txtdelegate.Text
Adodc1.Recordset.Fields("way") = txtway.Text
Adodc1.Recordset.Update
Unload Me
End Sub交际能力差1年前1 -
syqxj 共回答了19个问题
|采纳率84.2%括号里是数据库中的属性,此程序是实现点击添加数据记录的.单从这个私有sub看不出哪里出错.1年前查看全部
- SOS!VB阅读题!明天就考!Private Sub Command1_Click()/Counter=0/For i=
SOS!VB阅读题!明天就考!
Private Sub Command1_Click()/Counter=0/For i=1 To 4/For j=6 To 1 Step -2/Counter=Counter+1/
Next j/Next i/Label1.Caption=Str(Counter)/End Sub/程序运行后,单击命令按钮,标签中显示的内容是__________.倾情倾心1年前1 -
黄犬 共回答了16个问题
|采纳率81.3%121年前查看全部
- Private Sub Command1_Click() s = 0 Do s = (s + 1) * (s + 2)
Private Sub Command1_Click() s = 0 Do s = (s + 1) * (s + 2) Number = Number + 1 Loop Until s >= 30 P
Private Sub Command1_Click()
s = 0
Do
s = (s + 1) * (s + 2)
Number = Number + 1
Loop Until s >= 30
Print Number,s
End Sub
这个程序是怎么执行的?琥珀川771年前1 -
chenlpp 共回答了13个问题
|采纳率92.3%从S=0时开始,
当S=0时,执行s = (s + 1) * (s + 2),则S=1*2=2
当S=2时,执行s = (s + 1) * (s + 2),则S=3*4=12
当S=12时,执行s = (s + 1) * (s + 2),则S=13*14=182
Number = Number + 1
执行三次
Number =3
也就是结果为3 1821年前查看全部
大家在问
- 1某品牌衣服进价为300元,按进价的120%销售,为了迎接春节促销,在原来售价的基础上降价20%出
- 2已知集合A={x|x的三次方+3x的平方+2x>0},B={x|x的平方+ax+b≤0},若A∩B=｛x|0＜x≤2｝,
- 3细胞核具有什么功能
- 4有一张长方形的纸长36厘米，宽24厘米，要剪成若干个同样大小的正方形而没有剩余，剪出的小正方形的边长最大是几厘米？可以剪
- 5宇宙是无限大的吗我个人觉得宇宙应该是无限大的,我就想看看你们的看法,和理论,因为怎么可能有限呢,你说宇宙像个球一样?那球
- 6Y与X的函数表达式类型在矩形ABCD中,AB=4,AD=5,E是BC上与B、C不重合的点,设AE=X,点D到AE的距离为
- 7世界上的星星有多少颗（人眼能看见的）拜托各位大神
- 8usually people in japam and korea——when they mee
- 9初一上学期期末总结咋写?91 .105 .英语：99 .67 .85 .68 .57 .总：415.3
- 1012 months=y...什么东东?
- 11We are not s____.We might go to Australia on holiday
- 12人的寿命为什么会有长短之别?到底是什么,决定了人的寿命呢?
- 13数学题!1118．观察下列每组数据,按某种规律在横线上填上适当的数： (2) －23,－18,－13, , , ； (3
- 14十字交叉法函数ax' bx c('是平方),谁能告诉我怎么使用十字交叉法以及使用条件,用白化文回答,文言文的不送
- 15一道英语选择题：What did you do （）the winter holidays?快!今天就要!在线等!