杭州交通信息网玻璃钢污水池集气罩:请教一个关于VB的题目，谢谢！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 01:29:08
根据要求分别编两个过程：
(1) 编一个冒泡法排序子过程，对己知的若干个整数按递增次序排列。
[ 提示 ]
子过程形式为：
Sub Sortl(a%())
(2) 编一个二分法查找函数过程，查找某数，找到返回该数在数组中的下标位置，找不到值为 -1 。
函数过程形式为：
Function Searchl(a%() ， Key%) As Integer
a%() 为有序的数组， Key% 为要查找的某数。
主调程序可通过随机函数产生若干个数，先后调用 Sort1 子过程和 Search 函数过程。
评论 ┆ 举报
最佳答案此答案由提问者自己选择，并不代表百度知道知识人的观点
回答：自由飞翔
学者
5月13日 14:48 1.添加timer控件，invterval设为1000，enabled为false
2.添加3个label控件，caption分别命名为：开始时间、结束时间和持续时间
3.添加3个text控件，enabled都设置为false
4.添加3个command控件，caption分别命名为：开始、结束（enabled为false）和退出
代码如下：
Dim a, b, c As Integer
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Timer1.Enabled = True
Text1.Text = Time()
Command2.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Text2.Text = Time()
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
a = 0: b = 0: c = 0
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a >= 60 Then
a = 0
b = b + 1
End If
If b >= 60 Then
b = 0
c = c + 1
End If
If c < 10 And b < 10 And a < 10 Then
Text3.Text = "0" & c & ":0" & b & ":0" & a
ElseIf c < 10 And b < 10 Then
Text3.Text = "0" & c & ":0" & b & ":" & a
ElseIf c < 10 Then
Text3.Text = "0" & c & ":" & b & ":" & a
Else
Text3.Text = c & ":" & b & ":" & a
End If
End Sub
揪错 ┆ 评论 ┆ 举报