VB考试题库.xlsVIP

程序设计题-5-2 程序填空-5-3 程序改错-5-3 程序选择题-2-10 基本题-2-20 SelectOneDetail Private Sub command1_Click() Dim p As Single Dim r As Single Dim n As Integer FontSize = 14: FontBold = True p = 60 r = 0.014 n = 0 Do n = n + 1 ________________ Loop Until p = 80 Print n End Sub 求[1701,10000]之间最小的素数 Private Sub Form_Click() Dim n As Long Dim flag As Boolean n = 1701 Do flag = True For m = 2 To Sqr(n) If n Mod m = 0 Then ________________ Exit For End If Next If Not flag Then n = n + 1 End If Loop Until flag Print n End Sub 求[5000,6000]之间的最大素数。 Private Sub Form_Click() Dim n As Integer Dim m As Integer Dim nIsPrime As Boolean For n = 6000 To 5000 step -1 ________________ For m = 2 To Sqr(n) If n Mod m = 0 Then nIsPrime = False Exit For End If Next If nIsPrime Then Print n Exit For End If Next End Sub 求11937和32136的最大公约数。 Private Sub Form_click() Dim a As Integer Dim b As Integer Dim i As Integer Dim t As Integer a = 11937 b = 32136 If a b Then t = a: a = b: b = t i = a Do While _______________________________ i = i - 1 Loop Print i End Sub 求11937和32136的最小公倍数。 Private Sub Form_click() Dim a As Integer Dim b As Integer Dim i As Long a = 11937 b = 32136 i = a Do While ______________________ i = i + a Loop Print i End Sub 求175，240，360的最小公倍数。 Private Function Divisor(ByVal m As Long, ByVal n As Long) As Long Dim t As Long Dim r As Long If m n Then t = m: m = n: n = t Do r = m Mod n m = n n = r Loop Until r = 0 Divisor = m End Function Private Function Multiple(ByVal m As Long, ByVal n As Long) As Long Multiple = ________________________________ End Function Private Sub Form_Click() Dim a Dim lcm Dim i As Byte a = Array(175, 240, 360) lcm = a(1) For i = 1 To UBound(a) lcm =Multiple(lcm, a(i)) Next Print lcm End Sub 求24738和24894的最大公约数。 Private Sub Form_click() Dim a As Integer Dim b As Integer Dim i As Integer Dim t As Integer a = 24738 b = 24894 If a b