玻璃钢污水池集气罩:请教一个关于VB的题目,谢谢!
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/21 23:53:49
根据要求分别编两个过程:
(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
揪错 ┆ 评论 ┆ 举报