某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n n-1 n-2 …3 2 1 2 3…n-2 n-1

题干

某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n n-1 n-2 … 3 2 1 2 3 … n-2 n-1 n”。例如n=8时，生成的数字序列如图所示。代码如下：

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i =" 1" To 2 * n - 1
If i <=" n" Then ① Else ②
Next i
Label1.Caption = s
End Sub
为实现以上功能，划线①②处应分别填写

A．①s =" s" & Str(n - i + 1) ②s =" s" & Str(i - n + 1)

B．①s =" Str(n" - i + 1) ②s =" Str(i" - n + 1)

C．①s =" s" & Str(i - n + 1) ②s =" s" & Str(n - i + 1)

D．①s =" Str(i" - n + 1) ②s =" Str(n" - i + 1)

上一题下一题 0.99难度选择题更新时间:2017-02-17 10:22:34

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

同类题1

现要编写一个统计2018~2100年间闰年次数的程序。已知出现闰年条件是：年份数能被4整除但不能被100整除，或者能被400整除。如图所示，要求程序运行后单击按钮，在列表框中显示闰年年份，并将统计次数显示在Label1。
（1）代码“PrivateSubCmd1_Click()”中的Cmd1_Click()是_________。
（单选，填字母：

（2）下面的VB程序可用来实现上述功能，请在划线处填写合适的代码。
Private Sub Cmd1_Click（）

Dim c As Integer , year As Integer
c=0

①______

If ②_______ Then
c=c+1

EndIf

Next year
Label1.Caption="闰年共有"+Str(c)+"次"
EndSub
（3）上述代码段中缺少了List1.AddItemStr(year)，此句代码应该加在________（填字母）位置。

同类题4

台州市政公共停车的收费标准如下：
30分钟以内不收费，1小时及以内收费5元，超过一小时后超过部分2元\小时收费（不足1小时的按1小时计算）。小明据此设计了以下VB程序，程序运行界面如图。

（1）若将窗体标题改为“台州停车收费”，应修改窗体属性栏中的___________属性。
（2）运行程序，在文本框Text1中输入当天停车时间（分钟），单击“收费”按钮Command1，在文本框Text2显示所对应的费用（元），实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim t As Integer , cost As Integer , h As Integer ‘h是小时时长
t=Val(Text1.Text)
If t <= 30 Then
cost=0
Else
h=(t-1)\60+1
If ①____ Then
cost=5
Else
cost=②____
EndIf
EndIf
Text2.Text=③____
EndSub

题干

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

同类题1

同类题2

同类题3

同类题4