UC知道这种代码怎么看呀，都不会做？全国计算机二级Access的
来源：百度知道 编辑：UC知道 时间：2024/05/30 21:11:39
运行下面程序代码后，变量J的值为______。
Private Sub Fun()
Dim J as Integer
J=10
DO
J=J+3
Loop While J<19
End Sub
A．10
B．13
C．19
D．21
运行下面程序，其输出结果(str2的值)为 ？ 。
Dim str1, str2 As String
Dim i As Integer
str1 = "abcdef"
For i = 1 To Len(str1) Step 2
str2 = UCase(Mid(str1, i, 1)) + str2
Next
MsgBox str2
运行下面程序，其运行结果k的值为 ？ ，其最里层循环体执行次数为
？ 。
Dim i, j, k As Integer
i = 1
Do
For j = 1 To i Step 2
k = k + j
Next
i = i + 2
Loop Until i > 8
希望有高手可以尽快帮我看看，并只好提供哪里可以学到该知识点的，真的一点都不懂哦，好急好急好急，就要考试了，很谢谢的哦~~~~
Private Sub Fun()
Dim J as Integer
J=10
DO
J=J+3
Loop While J<19
End Sub
A．10
B．13
C．19
D．21
运行下面程序，其输出结果(str2的值)为 ？ 。
Dim str1, str2 As String
Dim i As Integer
str1 = "abcdef"
For i = 1 To Len(str1) Step 2
str2 = UCase(Mid(str1, i, 1)) + str2
Next
MsgBox str2
运行下面程序，其运行结果k的值为 ？ ，其最里层循环体执行次数为
？ 。
Dim i, j, k As Integer
i = 1
Do
For j = 1 To i Step 2
k = k + j
Next
i = i + 2
Loop Until i > 8
希望有高手可以尽快帮我看看，并只好提供哪里可以学到该知识点的，真的一点都不懂哦，好急好急好急，就要考试了，很谢谢的哦~~~~
这些都是VB的语法
1.选C，这里的重点是这一句
DO
J=J+3
Loop While J<19
翻译过来就是：当J<19时 就一直执行J=J+3．
首先初始化J=10，j+3=13,13+3＝16，16+3＝19 然后跳出来
这其实是个送分题，是一个循环算法的入门
2. ECA 重点当然是
For i = 1 To Len(str1) Step 2
str2 = UCase(Mid(str1, i, 1)) + str2
翻译一下：
Len(str1)的意思是字符串的长度，长度当然为6
从 1 到 6 每循环一次就加 2
那么它的循环顺序是 1，3，5
UCase(Mid(str1, i, 1)) + str2
UCase：把字符转为大写
Mid,就是接取的意思，比如
Mid("abcdef", 1, 1))=a
Mid("abcdef", 2, 1))=b
明白了吗？？
那么它的运行是这样的．
E , EC, ECA
3.总共循环了10次，结果为31
重点
Do
For j = 1 To i Step 2
k = k + j
Next
i = i + 2
Loop Until i > 8
翻译：j从1一直循环到i 每一次循环都加2
一直运行到8停止
所有I的循环顺序是 1,3,5,7
而最终K的循环顺序是
2
3
6
7
10
15
16
19
24
31
如果你想从头学起可以买本VB语法入门，很容易的，关键是逻辑．有什么不懂的可以问我，留下你QQ就是
1. 19
2. ECA
3. k = 30