vb上機(jī)練習(xí)題

1、11.新建工程，界面如下圖，將窗體名稱改為f1，標(biāo)題屬性為“我的第一個(gè)工程”，Text2允許多行，三個(gè)命令按鈕名稱分別為C1、C2、C3，單擊C1按鈕將Text1的字體改為黑體，Text2的字體改為隸書(shū)。單擊C2按鈕將Text1的文字顏色改為紅色，Text2的背景顏色改為藍(lán)色。單擊C3按鈕結(jié)束程序運(yùn)行。PrivateSubComm1_Click()Text1.Font=黑體EndSubPrivateSubComm2_Click()Tex

2、t1.FeCol=vbRedText2.FeCol=vbBlueEndSubPrivateSubComm3_Click()EndEndSub2.新建工程，界面如上圖，運(yùn)行時(shí)，鼠標(biāo)在“改變窗體顏色”按鈕上按下時(shí)使窗體背景色變?yōu)榧t色，鼠標(biāo)抬起時(shí)使窗體背景色變?yōu)榫G色。鼠標(biāo)在窗體空白地方按下時(shí)使Text1的內(nèi)容為“在窗體上按下了鼠標(biāo)”，鼠標(biāo)抬起時(shí)使Text1的內(nèi)容為“在窗體上抬起了鼠標(biāo)”。PrivateSubComm1_MouseDown(Bu

3、ttonAsIntegerShiftAsIntegerXAsSingleYAsSingle)Fm1.BackCol=vbRedEndSubPrivateSubComm1_MouseUp(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)Fm1.BackCol=vbGreenEndSubPrivateSubFm_MouseDown(ButtonAsIntegerShiftAsIntegerXA

4、sSingleYAsSingle)Text1.Text=“在窗體上按下了鼠標(biāo)“EndSubPrivateSubFm_MouseUp(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)Text1.Text=“在窗體上抬起了鼠標(biāo)“EndSub3.新建工程，界面如下圖，運(yùn)行時(shí)，在文本框Text1中輸入內(nèi)容的同時(shí)，在文本框Text2、Text3中顯示相同的內(nèi)容，但字體不同（字體自定）。Private

5、SubComm1_Click()Text1.Text=““Text2Text136.設(shè)計(jì)界面如上圖所示。單擊“出題”按鈕，產(chǎn)生任意兩個(gè)【1，100】之間的隨機(jī)整數(shù)于Text1、Text2中，單擊“計(jì)算”按鈕，求兩個(gè)數(shù)的和。運(yùn)算結(jié)果為只讀。PrivateSubComm1_Click()Text1.Text=Int(100Rnd1)Text2.Text=Int(100Rnd1)EndSubPrivateSubComm2_Click()a=V

6、al(Text1.Text)b=Val(Text1.Text)Text3.Text=abEndSub7設(shè)計(jì)一個(gè)數(shù)字鐘表程序，界面如圖所示。運(yùn)行時(shí)單擊窗體，顯示當(dāng)前的年月日星期及時(shí)間。PrivateSubFm_Click()Label2.Caption=Year(Now)Label4.Caption=Month(Now)Label6.Caption=Day(Now)Label9.Caption=Weekday(Now)Label11.Ca

7、ption=TimeEndSub8設(shè)計(jì)一個(gè)數(shù)學(xué)函數(shù)程序，界面如圖所示。程序運(yùn)行時(shí)，在文本框中輸入任意數(shù)值，單擊相應(yīng)按鈕標(biāo)簽中顯示結(jié)果。文本框始終處于選中狀態(tài)。PrivateSubComm1_Click()Label3.Caption=Abs(Val(Text1))Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSubPrivateSubComm2_Click