- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- + VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
小李想用vb制作一个分钟倒计时器,界面如图所示。先在文本框text1中输入分钟数,然后在文本框text2中输入秒钟数,再点击“开始倒计时”按钮开始倒计时。Vb程序如下:


Private Sub Command1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
sec = Val(Text2.Text)
min = Val(Text1.Text)
If sec> 0 Then
sec =" sec" - 1
Else
sec =" 59"
If min > 0 Then
min =" min" - 1
Else
Text1 = 0
Text2 = 0
MsgBox "倒计时时间到"
End If
End If
Text1 = min
Text2 = sec
End Sub
程序中①处应该填
计时器timer1的inteval属性应该设置为


Private Sub Command1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
sec = Val(Text2.Text)
min = Val(Text1.Text)
If sec> 0 Then
sec =" sec" - 1
Else
sec =" 59"
If min > 0 Then
min =" min" - 1
Else
Text1 = 0
Text2 = 0
MsgBox "倒计时时间到"
End If
End If
Text1 = min
Text2 = sec
End Sub
程序中①处应该填
计时器timer1的inteval属性应该设置为
输入一正整数并判断是奇数还是偶数的算法描述如下图所示:

该流程图中,语句“x mod 2 = 0?”,应加的框图为( )

该流程图中,语句“x mod 2 = 0?”,应加的框图为( )
A.![]() |
B.![]() |
C.![]() |
D.![]() |
有Visual Basic程序如下:
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时,单击命令按钮command1,弹出如图所示的出错信息提示,此时程序正执行的语句是( )

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时,单击命令按钮command1,弹出如图所示的出错信息提示,此时程序正执行的语句是( )

A.a = Text1.Text | B.b = Text2.Text |
C.c =" a" + b | D.Label1.capton = c |
实现计算器上xy运算处理的算法部分流程图如图所示:

下列说法正确的是( )

下列说法正确的是( )
A.框图①中该填入的是f←x*j |
B.框图①中该填入的是f←f*j |
C.j←j+1被执行了x次 |
D.j←j+1被执行了y次 |
某地区公共自行车收费信息如下:“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

(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
下列VB程序运行时,单击命令按钮Command1后,若在文本框中输入10,则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub
有如下VB程序段:
bianliang_a =" 3:bianliang_b" = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后,标签Label1将显示( )
bianliang_a =" 3:bianliang_b" = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后,标签Label1将显示( )
A.3*4 | B.12 |
C.bianliang_a*bianliang_b | D.3*4=12 |
一个四位正整数,它的低二位和高二位差的绝对值为10,例如:1323,|23-13|=10。试求所有满足上述条件的四位正整数的和。请用VB代码设计该算法(注:流程图不给分)