下列程序的运行结果为（ ）。 Option Base 1 Private Sub Command1_Click() a = Array(237, 126, 87, 48, 498) m1 = a(1) m2 = 1 For i = 2 To 5 If a(i) > m1 Then m1 = a(i) m2 = i End If Next i Print m1, m2 End Sub
A: 48 42
B: 37 14
C: 498 5
D: 98 4
A: 48 42
B: 37 14
C: 498 5
D: 98 4
举一反三
- 请阅读程序： Private Sub Form_Click() m=1 For i=4 To 1 Step-1 Print str(m); m=m+1 For j=1 To i Print "*"; Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是______。 A: 1**** 2*** 3** 4* B: 4**** 3*** 2* 1* C: **** *** **** * D: * ** *** ****
- 标准斜齿圆柱齿轮外啮合的正确啮合条件是()。 A: m1=m2=mn,α1=α2=αn,β1=－β2 B: m1=m2=m ,α1=α2=α,h1=h2 C: m1=m2=mn,α1=α2=αn,β1=β2 D: m1=m2=m ,α1=α2=α,β1=β2
- 标准斜齿圆柱齿轮的正确啮合条件是()。 A: m1=m2=m, B: α1=α2=α C: m1=m2=m,α1=α2=α D: mn1=mn2=m,αn1=αn2=αβ1=-β2
- 3.输入一个正整数m（>2），判断m是否为素数，并输出结果。请将程序补充完整。 Private Sub Form_Click() Dim m%, i%, k% m = InputBox("请输入m的值(>2)") k = 1 For i = 【1】To【2】 If 【3】 Then k = 0 Next i If 【4】 Then Print m & "是素数" Else Print m & "不是素数" End If End Sub
- 一对直齿圆锥齿轮的正确啮合条件是（）。 A: m1=m2 B: α1=α2 C: m1=m2α1=α2 D: m1=m2=mα1=α2=α