最新vb程序設計編程考試題及答案(已修改)
2025-07-07 01:27 本頁面
【正文】 VB程序設計編程考試題及答案1. 輸入3個數(shù)，輸出最大的數(shù)Private Sub mand1_click()Dim maxFor i = 1 To 3n = Val(InputBox(輸入第 amp。 i amp。 個數(shù)))If n max Thenmax = nEnd IfNextPrint 三個數(shù)中最大的數(shù)是 。 maxEnd Sub2. 有一元二次方程：aX2+bX+c=0，依次輸入a，b，c，判斷此方程是否有實根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b 4 * a * cIf n = 0 ThenLabel4 = 方程有根 Else Label4 = 方程無根End IfEnd Sub3. 輸入一個百分制的成績，若大于等于60，則用消息框彈出，顯示“恭喜！成績通過！”，若小于60，則彈出消息框，顯示“抱歉！成績沒有通過！Private Sub Form_Load()Text1 = End SubPrivate Sub Command1_Click()Dim nn = Text1If n =60 ThenVal (MsgBox(恭喜！成績通過！))ElseVal (MsgBox(抱歉！成績沒有通過！))End IfEnd Sub4. 輸入一年份，判斷它是否為閏年，并顯示有關信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox(請輸入年份)If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 ThenVal (MsgBox(閏年！))ElseVal (MsgBox(平年！))End IfEnd Sub5. 輸入學生的百分制成績，轉(zhuǎn)換輸出為五級制成績，90～100分轉(zhuǎn)換為優(yōu)秀，80～89轉(zhuǎn)換為良好，70～79轉(zhuǎn)換為中等，60～69轉(zhuǎn)換為及格，0～60轉(zhuǎn)換為不及格。Private Sub Command1_Click()a = Val(InputBox(請輸入成績))If a 100 Then Print 超出范圍If a = 90 And a = 100 Then Print 優(yōu)秀If a = 80 And a 90 Then Print 良好If a = 70 And a 80 Then Print 中等If a = 60 And a 70 Then Print 及格If a 60 Then Print 不及格End Sub6. 隨機產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生246，輸出是642。Private Sub Command1_Click()Dim x%, x1%, x2%, x3%x = Text1x1 = x Mod 10x2 = (x Mod 100) \ 10x3 = x \ 100Label1 = x1 * 100 + x2 * 10 + x3End Sub7. 輸入兩個整數(shù)，求它們的最大公約數(shù)。private Sub Command1_Click() n1 = InputBox(輸入n) m1 = InputBox(輸入m) If m1 n1 Then
黨政相關相關推薦
鄂ICP備17016276號-1