Question

用Delphi编写小程序。知道的大虾帮下忙啊 给我代码啊。

项目：课程表 本实验要求开发一个小程序，界面如图23所示。   图23 实验二十三程序界面 功能说明如下： 选中需要输入课程的位置，在课程名后的输入框中输入课程名称，点击“填入”按钮，就会填入相应的课程名称。

Answer 1

把这行去掉 MsgBox "" & "Seconds left" & "- " & i 或增加一个子顺序 Sub kaishi() For i = 9 To 0 Step -1 wt = 1 Do While wt > 0。1 ra = Int(Rnd() * 10) Select Case ra Case 0 Cells(1, 2)。Select Case 1 Cells(1, 1)。Select Case 2 Cells(2, 1)。Select Case 3 Cells(3, 1)。Select Case 4 Cells(3, 2)。Select Case 5 Cells(3, 3)。Select Case 6 Cells(3, 4)。Select Case 7 Cells(2, 4)。Select Case 8 Cells(1, 4)。Select Case 9 Cells(1, 3)。Select End Select Application。Wait (Now + TimeValue("0:00:01") * wt) wt = wt * 0。8 Loop c = 11 - i Cells(c, 7) = i myMsgbox "" & "Seconds left" & "- " & i, 1, "提示", 64 Next End Sub Sub myMsgbox(myPrompt As String, Elapse As Integer, myTitle As String, Buttons As Integer) '自动封锁对话框 CreateObject("Wscript。Shell")。popup myPrompt, Elapse, myTitle, Buttons End Sub 2011-10-24 6:41:31

Answer 2

把这行去掉 MsgBox ""