vb程序設計考試題庫——考試專用-免費閱讀
【正文】 規(guī)定n的值不大于1000? 例如：n的值為855時，應輸出704。m為15，n為11時，顯示810，39。如：該數(shù)為素數(shù)時，顯示素數(shù)；該數(shù)為非素數(shù)時，顯示非素數(shù)39。存儲連乘的乘積的變量必須為Product39。39。mark小于70且大于等于60顯示及格39。********** End **********End FunctionPrivate Sub Form_Load() Show Print fun(A) Print fun(9) Print fun(amp。并存入變量SUM中。 為： amp。題目：(事件)單擊窗體。將所有的換法的數(shù)目存入變量N中題目：單擊窗體。題目：(事件)單擊窗體。(響應)在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8…的前10項，并求其和，將和保存在變量s中。將最大值，最小值，平均值分別存入變量Max,Min,Aver中題目：(事件)單擊窗體。將結果存入變量J中。例如，整數(shù)28的真因子為11，其和是28。字母字符顯示字符串字母，數(shù)字字符顯示字符串數(shù)字，其他字符顯示字符串其他，要求使用IF語句來實現(xiàn)。mark大于等于90顯示優(yōu)秀39。********** End **********End FunctionPrivate Sub Form_Load() Show Print fun(90) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer Dim s As String Dim a(10) As Integer Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open amp。 \ For Input As fIn fOut = FreeFile Open amp。 \ For Input As fIn fOut = FreeFile Open amp。 \ For Input As fIn fOut = FreeFile Open amp。********** End **********End FunctionPrivate Sub Form_Load() Show16題x = 10n = 0Do While x y x = x * n = n + 1Loopfun = n Print fun(15, 11)19 題Sum = 0For i = 1 To 100 If i Mod m = 0 Or i Mod n = 0 Then Sum = Sum + i End IfNext ifun = Sum NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer15題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 If Dim a(10) As String20題Dim s, i As Integer For i = 2 To n 1 If n Mod i = 0 Then s = s + i End If Next Fun = s Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open amp。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
電大資料相關推薦
鄂ICP備17016276號-1