有如下VB程序段：PrivateSubCommand1_Click()DimiAsInteger,sAsstrings=""Fori=1To3Step2s=st_刷题宝

题干

有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（）

A．247

B．27

C．72

D．742

上一题下一题 0.99难度选择题更新时间:2020-03-26 03:13:29

答案(点此获取答案解析）

同类题1

仔细分析以下流程图所示算法的功能，并回答问题。
（1）①处所示语句的功能是
（2）写出语句②对应的VB表达式
（3）程序运行的结果是

同类题2

有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
　c＝Mid(s，i，1)
　If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )

A．2014	B．ChinaIT
C．hina	D．CIT

同类题3

每一个小写英文字母的 ASCII 码都比相对应的大写英文字母的 ASCII 码要大 32。编写 VB程序，实现如下功能：在文本框 Text1 中输入一串字符，单击“转换”按钮后，在文本框 Text2 中输出经过大小写字母互换的字符串，其它非英文字母的字符均保持不变，同时在 Label3 中输出字符的总个数及经过大小写互换的英文字母个数，运行界面如图所示，

（1）要使程序运行时窗体的标题显示为“大小写字母转换”,则需在事件处理过程中编写代
码“Form1.Caption = "大小写字母转换"”。（单选，填字母：

A．Form1_Click
/

B．Form_Load /

C．Command1_Click /

D．Command1_DblClick ）

（2）为实现上述功能，程序代码如下，请完善代码。
Private Sub Command1_Click()

同类题4

Sub test3()双重循环运行输出图形与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是（）

同类题5

假设b是布尔型变量，t是整数型变量，则下列赋值语句中正确的是（）

B．b=“True”

相关知识点