vb_編程練習(xí)(答案)-展示頁
2025-01-23 21:50本頁面
【正文】 ** Program ******** Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l)39。39。 (響應(yīng))求10~20之間所有素?cái)?shù)的乘積并輸出在窗體上。題目：(事件)單擊窗體。********** End *************Print sumEnd Sub39。Private Sub Form_dblClick()Dim sum As Integersum = 039。輸出這些數(shù)并求所有數(shù)之和，存入變量中SUM中。39。39。********** End **********End FunctionPrivate Sub Form_Load() Show Print fun(A) Print fun(9) Print fun(amp。Private Function fun(n As String) As String39。 其他字符顯示字符串其他 39。 字母字符顯示字符串字母39。題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是: 字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。********** End **********End FunctionPrivate Sub Form_Load() Show Print fun(90)End Sub39。Private Function fun(mark As Integer) As String39。 要求使用IF語句來實(shí)現(xiàn)。 mark小于70且大于等于60顯示及格39。 mark小于90且大于等于80顯示良好39。條件如下：39。題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制39。39。39。 成績mark（整數(shù)），顯示對應(yīng)五級制的評定。 mark大于等于90顯示優(yōu)秀39。 mark小于80且大于等于70顯示中等39。 mark小于60顯示不及格39。39。**********Program**********If mark = 90 Then fun = 優(yōu)秀ElseIf mark = 80 Then fun = 良好ElseIf mark = 70 Then fun = 中等ElseIf mark = 60 Then fun = 及格Else fun = 不及格End If39。39。39。 數(shù)字字符顯示字符串?dāng)?shù)字39。 要求使用select語句來實(shí)現(xiàn)39。**********Program**********Select Case nCase A To Z, a To z fun = 字母Case 0 To 9 fun = 數(shù)字Case Else fun = 其他End Select39。)End Sub39。題目：(事件)雙擊窗體。 (響應(yīng))求出100~200之間，能被5整除，但不能被3整除的數(shù)。 輸出sum 應(yīng)為 210039。********** Program *********Dim i As IntegerFor i = 100 To 200 If ((i Mod 5) = 0) And ((i Mod 3) 0) Then Print (CStr(i)) sum = sum + i End IfNext39。39。 輸出L 應(yīng)為 4618939。將結(jié)果存入變量L中。Private Sub Form_Click()Dim l As Long39。********* End ***********End Sub39。題目：(事件)單擊窗體。 (響應(yīng))編寫程序求101112+111213+…+151617的結(jié)果，39。將結(jié)果存入變量M中 輸出M 應(yīng)為 1539039。******** Program *************Dim i, j As IntegerDim s As LongFor i = 10 To 15 s = 1 For j = i To i + 2 s = s * j Next m = m + sNextPrint (CStr(m))39。39。39。Private Sub Form_Click()Dim s As Single39。 / amp。********* End ****************End Sub39。題目：編寫函數(shù)fun其功能是：根據(jù)整型形參m，計(jì)算如下公式的值:39。Private Function fun(m As Integer) As Single Dim y As Double39。********** End *************End FunctionPrivate Sub Form_Load() Show Print fun(9)End Sub39。題目：函數(shù)fun其功能是：根據(jù)整型形參m，計(jì)算如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m39。Private Function fun(m As Integer) As Double39。********** End *************End FunctionPrivate Sub Form_Load() Show Print fun(9)End Sub39。題目： (事件)單擊窗體。 (響應(yīng))已知sum=11/4+1/91/16+1/25...1/100, 輸出 sum 應(yīng)為 39。 使用for...next語句完成程序39。***************** Program **************Dim i As Integerfor i = 1 to 10sum = sum + (1) ^ (i 1) /(i*i
試題試卷相關(guān)推薦
鄂ICP備17016276號-1