VB程序结果什么

说明：该态拦程序执行完之野闭历后，arr2(n)=0，arr1(n)=0，因为这一句

arr2(n)=2*n=i 实际上是先执行

2*n=i

这个判断，颂搜最后执行这一句时：

2*n=i

实际上是

2*3=5

，这个判断（6=5）是假(false)，在VB6中假值转换为整型类型为数值0，

所以程序的

输出结果

是：

0

0

Dim x as Integer

Dim y as Integer

Dim z as Integer

X=1:y=2

y=y+z

X=x+y+z

z=x*y

Print x,y,z

打印结果：_____3________2___6

2、读程序，写结果：

Dim a as Integer

Dim b as Integer

Dim c as Integer

a=3:b=3:c=2

If a>=b and a>c Then

Print a

Else

Print a,b,c

End if

打印结果：_3______________

3、读程序，写结果：

Dim n as Integer

dim i as integer

i=21:n=3'你的I没有定义,我补上的

Do While I>n

I=I－n

Loop

Print i

打印结果：__3____________

4、读程序，写结果：

Dim x(20) As Integer 'd,c,i没有定瞎肢义,自己补上去咯

d = 0

c = 10

For i = 1 To 3

x(i) = c - d

If x(i) >c Then

d = d + x(i)

c = x(i)

Else

d = 2 * d - c

End If

Next i

Print d, i, c

打印结果：_____0_________4_______ 20

5、读程序，写结果：(“\”表租厅示整除，例：5\2=2)

For n = 1 To 6

If n Mod 3 <>0 Then m = m + n \ 3

Next n

Print m

最后的M是多少？____2_________

6、读程序：

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next

Print sum

sum是哪些数字的和：

___________________3__________

7、读程序，写结果：

s = 2

For i = 10 To 2 Step -3

s = s + 1

Next i

Print s, i

打印结果：__5_________1____

8、

a=1

b=1

c=a+b

Do While c<500

a=b

b=c

c=a+b

Loop

Print c

写出输出的前10项，并找出规律：610___________________________

9、M=15

N=9

Do While N<>0

R=M MOD N

M=N

N=R

Loop

pint m,n,r 这个结果是300

写出循环后M的值_没磨型世有结果的,因为你没有输出语句____________

10、完成下面的求2到10以内奇数的积的过程：

Dim sum as Integer

sum=1

Dim I as Integer

For I=_1___ to 10

If I MOD 2<>___0__ Then

__SUM=SUM*I

End if

11、填完下面的空格，使得“Print i”的执行次数为6次：

For i=10 to _40___ step 6

Print i

next i

12、显示1——10这10个数字：

Dim n as Integer

n=1

Do while n<=10

Print n

n=n+1____________

Loop

做完了,下次你要是自己不会的话,可以去环境运行一下就OK咯,这些都是一些简单的,也是最基础的,我都有上机 *** 作过的,都是正确的!!!

___________

Print sum

变量Sum的值为_____945__________

private function fun1(s1 As String,Line as integer)as string '声明函数“FUN1”，有桐野两个“BYREF”形式的变量（s1为字符串，LINE为整形数，返回值为字符串）

P = "" '给一个VARIANT变量赋值（隐式声明）

For i = 1 To 12-2*line-1 '进入循环，给隐式声明的VARIANT型变量I赋值为一，并循环至12-2*LINE-1(没有定义STEP，所以12-2*line-1可以小于1，I从1往差世下减。)

P=P&"" '给变量P加入空格

NEXT I '循环结束的标志

for I = 1 TO 2*LINE-1 '（同上一个FOR 的注释)

p = p &s1 &" "局庆喊 '给变量P赋值为本身链接S1在链接空格

next i '循环结束

fun1=p '给函数一个返回值

END FUNCTION

private sub command1_click() 'SUB事件，Command1命令按钮被单击时触发

DIM I AS INTEGER

DIM FU AS STRING'声明变量

PRINT “1234567890” ' 输出字符串

for i = 1 To 5 '同上一个For 的注释

print fun1（“#”，I）’调用函数FUN1，函数s1变量赋值为“#”，函数变量LINE赋值I的值

next i

END SUB

---