Question

写出下列程序段的运行结果

1．
Private sub command1_click()
dim i as integer
for i=3 to 10
if int(i/5)=i/5 then
exit for
end if
next i
print i
end sub

2．
Private Sub Command1_Click()
Dim x, y As Integer
x = 3
Select Case x
Case 1
y = 2
Case 2
y = 3
Case 3
y = 4
Case Else
y = 10
End Select
Form1.Print y
End Sub
3．
Private sub command1_click()
dim a,b,x as integer
b=1
for a=1 to 9
x=a*b
form1.print a & ”*” & b & ”=” & x
next a
end sub
4．
Private sub command1_click()
Dim m,n as integer
For m=3 to 9
For n=2 to m-1
If int(m/n)=m/n then
Exit for
End if
If n=m-1 then
Print m
End if
Next n
Next m
End sub

Answer 1

为什么你不给点分呢?要我做一些无用功...
=====================================================
数据结构,队列
从程序来看,其队列是
(头)h,r,c,h,a(尾)
其中h,r已经被弹出队列了(执行了两次out_queue(q)).也就是说,现在的队列就只有c,h,a.
加上最后输出一个变量x,
所以输出的是
char
in_queue(q,'r');和
in_queue(q,y)没什么不同.其函数原型都是
in_queue(sequeue
*q,
char
c).
'r'是char型的常量,y是char型的变量.
x
=
out_queue(q);就是把队列的头元素弹出队列,并存放在变量x中.
至于为什么要进行这一步printf("%c",y),如果你不喜欢进行这一步,你大可不必进行.惟一的区别就是,你看不到结果是什么而已.

Answer 2

楼上的,不懂得尊重别人,就不会得到别人的尊重!!

1、 5
int(i/5)=i/5 与 (i mod 5)=0 差不多，为了判断是否整除。当i=5时，整除，exit for 跳出for循环。
2、 4
为什么这样的都拿来问？？难道你学编程，连这么简单的分支程序都不会吗？
3、再问这样的题就真的会让人鄙视了。
1*1=1
2*1=2
3*1=3
4*1=4
5*1=5
6*1=6
7*1=7
8*1=8
9*1=9

4、 3 5 7

Answer 3

鄙视VB，C\C++赞的说。