10 月 17 日 第二十一次等级考试 二级VISUAL BASIC上机考试试卷第三套一、调试程序:程序存盘文件名 TEST31.FRM、TEST31.VBP40 分Option ExplicitDim k As Integer Private Sub Command1_Click Timer1.Enabled True k 60 Label1.Caption StrkEnd SubPrivate Sub Form_Load Timer1.Interval 1000 Timer1.Enabled False Command1.Caption quot开始quot End SubPrivate Sub Timer1_Timer kk-1 If k gt 0 Then Label1.Caption Strk Else Label1.Caption quotENDquot Timer1.Enabled False End If End Sub二、编程:程序存盘文件名 TEST32.VBP TEST32.FRM60 分Private Sub Command1_Click Dim i a1 a2 List2.Clear For i 0 To List1.ListCount - 1 a1 ValLeftList1.Listi 1 a2 ValRightList1.Listi 1 If a1 a2 Mod 2 0 T.
上一篇:
Web页面安全验证类函数代码
下一篇:
还记得,那年的风车吗?