vba編程綜合答案-文庫吧
2024-12-30 21:57 本頁面
【正文】 Integer, StrX As StringScore = Select Case ScoreCase 0 To 59 StrX = 不及格Case 60 To 69 StrX = 及格Case 70 To 79 StrX = 中Case 80 To 89 StrX = 良Case 90 To 100 StrX = 優(yōu)End Select = 你的等級是： amp。 StrXEnd Sub題號：12007計(jì)算的值。本題使用模塊過程函數(shù)實(shí)現(xiàn)(1)函數(shù)名為FC，私有類(2)選擇結(jié)構(gòu)采用If……Else……End if結(jié)構(gòu)(3)x用于接受用戶輸入值，y用來存放輸出值Private Sub FC()Dim x As Double, y As Doublex = Val(InputBox(請輸入x的值：))If x = 0 Theny = x ^ 2 + x + 1Elsey = x ^ 2 + 4 * x 2End IfMsgBox y的值是： amp。 yEnd Sub題號：12011編程實(shí)現(xiàn)輸入一個(gè)整數(shù)X，能判別其是否為素?cái)?shù)。素?cái)?shù)又稱質(zhì)數(shù)。指只能被1和自身整除的自然數(shù)。注意：(1)使用模塊過程函數(shù)實(shí)現(xiàn)，函數(shù)名為prime，為私有函數(shù)。(2)使用I，N整形變量，其中N為用戶輸入的數(shù)，I為循環(huán)計(jì)數(shù)器(3)循環(huán)結(jié)構(gòu)采用For……next 形式(4)效果如圖所示，模塊最后保存為：M24Private Sub prime()Dim I As Integer, N As IntegerN = InputBox(
試題試卷相關(guān)推薦
鄂ICP備17016276號-1