麻烦vb高手帮忙做下考试试卷吧,好难啊,阅读题和程序设计完善题都不会做了。急用,高分悬赏!~ 100
http://photo.hiao.com/album/768/1534250/44197/1201/20120105223620_big.jpghttp://photo...
http://photo.hiao.com/album/768/1534250/44197/1201/20120105223620_big.jpg
http://photo.hiao.com/album/768/1534250/44197/1201/20120105223621_big.jpg 展开
http://photo.hiao.com/album/768/1534250/44197/1201/20120105223621_big.jpg 展开
3个回答
展开全部
程序完善题:
1. textbox2.text = ""
2. text
3. val(text1.text)
4. end sub
5. end
程序设计:
Dim Plus As Integer
Dim Time As Integer
Private Sub Command1_Click()
Text1.Enabled = True
Text1.SetFocus
Timer1 = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Dim f As Double
If Time <> 0 Then
f = Plus / Time
Else
f = 0
End If
Timer1.Enabled = False
MsgBox "速度:" & f & "字/秒"
Call Form_Load
End Sub
Private Sub Form_Load()
Command2.Enabled = False
Command1.Enabled = True
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Enabled = False
Plus = 0
Time = 0
Text1.Text = ""
End Sub
Private Sub Text1_Change()
Plus = Plus + 1
End Sub
Private Sub Timer1_Timer()
Time = Time + 1
End Sub
题目简单,认真做,调试成功, 帮你做最难的,拿20分,其他的自己抄吧,懒得做
1. textbox2.text = ""
2. text
3. val(text1.text)
4. end sub
5. end
程序设计:
Dim Plus As Integer
Dim Time As Integer
Private Sub Command1_Click()
Text1.Enabled = True
Text1.SetFocus
Timer1 = True
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Dim f As Double
If Time <> 0 Then
f = Plus / Time
Else
f = 0
End If
Timer1.Enabled = False
MsgBox "速度:" & f & "字/秒"
Call Form_Load
End Sub
Private Sub Form_Load()
Command2.Enabled = False
Command1.Enabled = True
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Enabled = False
Plus = 0
Time = 0
Text1.Text = ""
End Sub
Private Sub Text1_Change()
Plus = Plus + 1
End Sub
Private Sub Timer1_Timer()
Time = Time + 1
End Sub
题目简单,认真做,调试成功, 帮你做最难的,拿20分,其他的自己抄吧,懒得做
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
实在看不太清,你能把所有题目打字上来,我就帮你解答
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
最基本的vb阅读题和程序设计题,稍微计算一下就可以了。
追问
报的电大成人教育,就没学过,而且今年还没发书,根本啥也不会啊。。所以急求帮助~!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询