请阅读程序： 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: * ** *** ****

‍下面程序的输出结果是（ ）。‎‍m=5‎‍while(m==0):‎‍ m-=1‎‍print(m)‎ A: 0 B: 4 C: 5 D: -1

阅读程序在画线处填空。程序功能单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间那个整数， Option Base 1 Private Sub Form_Click() Print "输入的数据是："; For i=1 To 3 a(i)=InputBox("输入数据") Print a(i); Next Print If a(1)a(3) Then m=a(2) ElseIf a(1)>a(3) Then m=__ _ _____ Else m=__ ____ __ End If Print "中间数是：";m End Sub

编写如下程序: Private Sub Command1_Click； Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1

下列代码的运行结果为（ ） m = 1 for x in range(1,4,2): m *= x print(m) A: 24 B: 6 C: 3 D: 1 2 6 24

有如下程序： Dim a(3，3)As Integer For m ＝ 1 To 3 For n ＝ 1 To 3 a(m，n)＝(m-1)*3＋n Next n Next m For m ＝ 2 To 3 For n ＝ 1 To 2 Print a(n，m)； Next n Next m 运行后，输出结果是(　　)。

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的ASCII码是65，运行下面程序后输出的结果是 ______。 M = 65: A$ =" " For i = 1 To 3 A$ = A$ + Chr$(M) M = M +1 Next i Print A$ A: 197 B: 656667 C: ABC D: CBA

运行下列程序段，其中语句“n = n + 1”被执行的次数是（）。 Dim m%... 1 Print n Next Next

【其它】写出并理解下列语句输出的结果 s = "hello" print(s[0]) print(s[4]) print(s[-1]) print(s[0:3]) print(s[0:4:2]) print(s[:]) print(s[:3]) print(s[::-1]) print(s[1:])