有如下VB程序：DimiAsInteger，jAsInteger，kAsString，nAsIntegern＝3List1.ClearFori＝1Tonk＝“”_刷题宝

题干

有如下VB程序：
Dim i As Integer，j As Integer，k As String，n As Integer
n＝3
List1.Clear
For i＝1 To n
k＝“”
For j＝1 To i
k＝k＋“*”
Next j
List1.AddItem k
Next i
该程序运行中，在列表框List1中显示的是( )

A．	B．
C．	D．

上一题下一题 0.99难度选择题更新时间:2020-01-17 01:18:41

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

同类题1

《孙子算经》中提出“物不知其数”的问题，此数以3除余2，以5除余3，以7除余2。下列VB程序用来求指定范围内满足该条件的自然数及其个数。程序界面如图所示，

VB程序段如下：
Private Sub Command1_Click()
k = 0 '用来计数
Max = 600 '指定范围600以内
n = 9
Do While n <= Max
Loop
Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"
End Sub
方框中的代码由以下五部分组成：
① n=n+7
② k = k + 1
③ List1.AddItem Str(n)
④ End If
⑤ If n Mod 3 = 2 And n Mod 5 = 3 Then
代码顺序正确的选项是（）

A．⑤①②③④

B．②⑤③①④

C．⑤③②④①

D．⑤①③④②

同类题2

VB程序设计一般包括、、。

同类题3

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如1图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

(1)在应用程序界面设计时，为添加“计费”按钮，应使用2图所示的“控件工具箱”中的__________（请填写相应编号），并在3图所示的“属性窗口”中，将____________属性值设置为“计费”。

(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

同类题4

在VB中，语句Dim s As Integer的功能是

A．定义一个字符串型变量s	B．定义一个日期型变量s
C．定义一个整型变量s	D．定义一个单精度型变量s

同类题5

在Visual Basic中，下列属于字符串的是（）。

相关知识点