VB实用入门程序.docx

Dim i As IntegerPrivate Sub Form_Load()i = 10Label4.Caption = 倒计时 & iTimer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()i = 10Timer1.Enabled = TrueCommand1.Caption = 题目Dim a As IntegerDim b As Integera = 1b = 10Randomizec = Int(Rnd * (b - a + 1) + aSelect Case cCase 1Label1.Visible = TrueLabel1.Caption = 世界天气的推动力是?Label2.Visible = FalseLabel2.Caption = 太阳Case 2Label1.Visible = TrueLabel1.Caption = 什么树能防火?Label2.Visible = FalseLabel2.Caption = 榇柯树Case 3Label1.Visible = TrueLabel1.Caption = 唐代诗人贾岛“二句三年得，一吟双泪流”的诗句是Label2.Visible = FalseLabel2.Caption = 独行潭底影，数息树边身Case 4Label1.Visible = TrueLabel1.Caption = 我军在何时举行了第一次海陆空联合渡海登陆作战,它就是著名的解放江山岛战斗Label2.Visible = FalseLabel2.Caption = 1955年1月18日Case 5Label1.Visible = TrueLabel1.Caption = 我国何时在何地建造了第一艘炮艇 何时在何地建造了第一艘潜艇Label2.Visible = FalseLabel2.Caption = 1951年9月,在上海 1956年,在江南造船厂Case 6Label1.Visible = TrueLabel1.Caption = 人类实现对太阳的逼近观测是?Label2.Visible = FalseLabel2.Caption = 1973年美国发射的大型载人航天站天空实验室Case 7Label1.Visible = TrueLabel1.Caption = 1光年大约为?Label2.Visible = FalseLabel2.Caption = 94600亿公里Case 8Label1.Visible = TrueLabel1.Caption = 蛇毒作为药用具不具有麻醉功效？Label2.Visible = FalseLabel2.Caption = 具有Case 9Label1.Visible = TrueLabel1.Caption = 边缘比中央厚的透镜叫：Label2.Visible = FalseLabel2.Caption = 凹透镜Case 10Label1.Visible = TrueLabel1.Caption = 最早发现的类星体是1960年发现的：Label2.Visible = FalseLabel2.Caption = 3C48End SelectEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseLabel2.Visible = Not Label2.VisibleEnd SubPrivate Sub Timer1_Timer()i = i - 1Label4.Caption = 倒计时 & iIf i = 0 ThenLabel4.Caption = 时间到Timer1.Enabled = FalseEnd IfEnd SubPrivate Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)p = m * nText3.Text = pEnd SubPrivate