vb程序設計考試題庫——考試專用(參考版)
2025-03-27 05:07本頁面
【正文】 11題Dim i As Integerdim s as integerFor i = 500 To 1 Step 1 s = i For j = i 1 To 1 Step 1 If i Mod j = 0 Then s = s j End If Next j If s = 0 Then Exit For End IfNext iPrint isum=i12題Dim i, j, imin, temp As Integer For i = 1 To n 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i13題Dim i As Integer For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i Exit For End IfNext i sum = i14 題If UCase(n) = A And UCase(n) = Z Then fun = 字母ElseIf n = 0 And n = 9 Then fun = 數(shù)字Else fun = 其他End If15 題 If mark=90 then Fun=優(yōu)秀Elself mark =80 then Fun=良好Elseif mark=70 then Fun=中等Elseif mark=60 thenFun=及格Else Fun=不及格 16題x = 10n = 0Do While x y x = x * n = n + 1Loopfun = n17題Product = 1For i = m To n Product = Product * iNext ifun = Product18題 flag = TrueFor i = 2 To m 1 If m Mod i = 0 Then flag = FalseNext iIf flag Then fun = 素數(shù)Else19 題Sum = 0For i = 1 To 100 If i Mod m = 0 Or i Mod n = 0 Then Sum = Sum + i End IfNext i20題Dim s, i As Integer For i = 2 To n 1 If n Mod i = 0 Then s = s + i End If Next21題 Dim k As Integer, s As Integer Do s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w 0 If s Mod 5 = 0 Then k = 1 Else k = 0 End If fun = k22題Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y 。2題目：：編寫函數(shù)fun其功能是:判斷一個整數(shù)w的各位數(shù)字平方之和能否被5整除 , 可以被5整除則返回1 , 否則返回02題目：編寫函數(shù)fun其功能是：根據整型形參m，計算如下公式的值:39。 \ For Output As fOut For i = 1 To 10 Step 2 Line Input fIn, a(i)
電大資料相關推薦
鄂ICP備17016276號-1