vb上機練習題

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

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

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

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

5、SubComm1_Click()Text1.Text=““Text2Text136.設計界面如上圖所示。單擊“出題”按鈕，產(chǎn)生任意兩個【1，100】之間的隨機整數(shù)于Text1、Text2中，單擊“計算”按鈕，求兩個數(shù)的和。運算結(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ù)字鐘表程序，界面如圖所示。運行時單擊窗體，顯示當前的年月日星期及時間。PrivateSubFm_Click()Label2.Caption=Year(Now)Label4.Caption=Month(Now)Label6.Caption=Day(Now)Label9.Caption=Weekday(Now)Label11.Ca

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