Question

谁会vb程序应用计算题目

Answer 1

'4、执行下列程序，会打印出：___50__80 60 40 20____。
x = 5
Y = 10
Do Until x = 0
Print x * Y;
For i = 1 To 5
Y = 20
Next i
x = x - 1
Loop
'x=5时，执行print x*y输出50；x=4时，执行print x*y输出80；x=3时，执行print x*y输出60；
'x=2时，执行print x*y输出40；x=1时，执行print x*y输出20；x=0时，循环结束
'5、单击命令按钮后，会打印出：_________
Private Sub Command1_Click()
x$ = "abcdefghijkl"
d = Asc("a") - Asc("A") '大小写字母的ascii码差是32，所以d的值是32
n% = Len(x) '字符串x的长度是12
Y$ = ""
For i = n To 1 Step -2
Y = Chr(Asc(Left(x, i)) - d) + Y
Next i
Print Y '执行print y ，输出 "AAAAAA"
End Sub
'当i=n时，也就是12，left(x,i)="abcdefghijkl",asc(left(x,i))计算时只取了第一个字母，实际计算结果是asc("a")的值，减去d为大写的"A"的ascii码，chr()函数将其转化为大写字母"A",Y=Chr(Asc(Left(x, i)) - d) + Y="A"+""="A"
'当i=10，left(x,i)="abcdefghij",asc(left(x,i))计算时只取了第一个字母，实际计算结果是asc("a")的值，减去d为大写的"A"的ascii码，chr()函数将其转化为大写字母"A",Y=Chr(Asc(Left(x, i)) - d) + Y="A"+"A"="AA"
'当i=8，left(x,i)="abcdefgh",asc(left(x,i))计算时只取了第一个字母，实际计算结果是asc("a")的值，减去d为大写的"A"的ascii码，chr()函数将其转化为大写字母"A",Y=Chr(Asc(Left(x, i)) - d) + Y="A"+"AA"="AAA"
'当i=6，left(x,i)="abcdef",asc(left(x,i))计算时只取了第一个字母，实际计算结果是asc("a")的值，减去d为大写的"A"的ascii码，chr()函数将其转化为大写字母"A",Y=Chr(Asc(Left(x, i)) - d) + Y="A"+"AAA"="AAAA"
'当i=n4，left(x,i)="abcd",asc(left(x,i))计算时只取了第一个字母，实际计算结果是asc("a")的值，减去d为大写的"A"的ascii码，chr()函数将其转化为大写字母"A",Y=Chr(Asc(Left(x, i)) - d) + Y="A"+"AAAA"="AAAAA"
'当i=n2，left(x,i)="ab",asc(left(x,i))计算时只取了第一个字母，实际计算结果是asc("a")的值，减去d为大写的"A"的ascii码，chr()函数将其转化为大写字母"A",Y=Chr(Asc(Left(x, i)) - d) + Y="A"+"AAAAA"="AAAAAA"
'当i=0，循环结束
'6 下述单击命令按钮后的输出结果_______________
Private Sub Command1_Click()
Dim arr1(10) As Integer, arr2(10) As Integer
n = 4
For i = 5 To 1 Step -2
arr1(i) = i
arr2(n) = 2 * n + i
Next i
Print arr2(n); arr1(n) '输出 arr2(4)和arr1(4);也就是9 0
End Sub
'当i=5时，arr1(5)=5:arr2(4)=2*4+5=13
'当i=3时，arr1(3)=3:arr2(4)=2*4+3=11
'当i=1时，arr1(1)=1:arr2(4)=2*4+1=9
'当i=-1时，循环结束
'由于arr1(4)没被赋值，是0