小李想用vb制作一个分钟倒计时器，界面如图所示。先在文本框text1中输入分钟数，然后在文本框text2中输入秒钟数，再点击“开始倒计时”按钮开始倒计时。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属性应该设置为

上一题下一题 0.99难度填空题更新时间:2015-08-20 08:05:33

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

同类题1

编写VB程序，实现如下功能：在文本框Txt1中输入字符串，如“12321”、“abba”，点击Com1按钮，判断输入的字符串是否对称，即从左读到右与从右读到左完全一样，并在标签lab2上显示判断结果。

(1）在程序代码中，第一行语句“Private Sub Com1_Click( )”中的Com1_Click( )是_____________(填字母：

A．对象名 /

B．事件名 /

C．事件处理过程名 /

D．方法名）

(2）为实现上述功能，请在划线处填入合适的代码或语句。

Private Sub Com1_Click()
Dim s As String, c1 As String, c2 As String
Dim n As Integer, i As Integer
Dim f As ①____________.
s = Txt1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = Mid(s, i, 1)

②___________.

If c1 <> c2 Then
③___________.
Exit For '退出For循环
End If
Next i
If f = True Then
Lab2.Caption = "对称"
Else
Lab2.Caption = "不对称"
End If
End Sub

同类题2

在VB窗口中建立命令按钮对象，改变命令按钮对象名称后，该命令按钮对象上显示改变的名称；（）

同类题3

目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关键的信息。现编写 V

A．程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮，将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。

图1 图2
（1）在设计程序界面时，图2中控件________（填数字）未在程序窗体中使用。
（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text
msg = msg + "/" '标记字符串结束符
tmp = "" s = ""
flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If ①_____ Then flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ,
tmp = ""

②_____

End If
Next i
Text2.Text = s
End Sub
（3）若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 ________。

同类题4

ual Basic中窗体文件的扩展名为（）

同类题5

一位同学想编程解决“韩信点兵”的问题，他制定的如下工作过程中，最恰当的是（）。

A．设计算法，编写程序，提出问题，运行程序，得到答案

B．分析问题，编写程序，设计算法，运行程序，得到答案

C．分析问题，设计算法，编写程序，运行程序，得到答案

D．设计算法，提出问题，编写程序，运行程序，得到答案

相关知识点