vb實(shí)驗(yàn)三

1、19實(shí)驗(yàn)報(bào)告年月日第節(jié)樓號(hào)室課程名稱計(jì)算機(jī)程序設(shè)計(jì)學(xué)生姓名學(xué)號(hào)專業(yè)與年級(jí)進(jìn)入實(shí)驗(yàn)室時(shí)間進(jìn)入時(shí)儀器設(shè)備狀況離開(kāi)實(shí)驗(yàn)室時(shí)間離開(kāi)時(shí)儀器設(shè)備狀況機(jī)器號(hào)實(shí)驗(yàn)項(xiàng)目名稱VisualBasic程序設(shè)計(jì)實(shí)驗(yàn)預(yù)習(xí)報(bào)告三39PrivateSubComm1_Click()IfNotIsNumeric(Text1.Text)ThenExitSubIfVal(Text1.Text)Mod3=0Val(Text1.Text)Mod7=0ThenLabel2.Capt

2、ion=“Yse“ElseLabel2.Caption=“No“EndIfEndSub2.打開(kāi)工程文件Dsg0302.vbp，在標(biāo)題為“坐標(biāo)象限”的窗體Fm1上，添加兩個(gè)標(biāo)題分別為“坐標(biāo)x”和“坐標(biāo)y”的標(biāo)簽Label1和Label2；然后再添加3個(gè)文本內(nèi)容為空的文本框Text1、Text2和Text3；最后添加一個(gè)標(biāo)題為“判斷”的命令按鈕Comm1。程序運(yùn)行時(shí)，在Text1和Text2中分別輸入某點(diǎn)的坐標(biāo)值x和y（不等于0），單擊“判