举一反三
- Dim i,j,x For i=i To 20 step 2 x=0 For j=i To 20 step 3 x=x+1 Next j Next i Textl.Value=Str(x)End Sub文本框中显示的结果 A: 1 B: 2 C: 0 D: 3
- 运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 下列程序段的执行结果为； Dim X(3,5) For I=1 To 3 For J=1 To 5 X(I,J)=X(I-1,J-1)+I+J Next J Next I Print X(3,4) A: 12 B: 10 C: 18 D: 15
- 在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，显示结果为（ ）。
- 中国大学MOOC: 写出下面程序执行后的运行结果。#include <stdio.h>int main(){int x[]={1,3,5,7,2,4,6,0},i,j,k;for(i=0;i<3;i++)for (j=2;j>=i;j--)if(x[j+1]>x[j]) { k=x[j]; x[j]=x[j+1]; x[j+1]=k;}for(i=0;i<3;i++)for(j=4;j<7-i;j++)if(x[j+1]>x[j]) { k=x[j]; x[j]=x[j+1]; x[j+1]=k;}for (i=0;i<3;i++)for(j=4;j<7-i;j++)if(x[j]>x[j+1]) { k=x[j]; x[j]=x[j+1]; x[j+1]=k;}for (i=0;i<8;i++) printf("%d",x[i]); return 0;}
内容
- 0
在窗体中有1个命令按钮Command1和1个文本框Text1,编写事件代码如下:Private Sub Command1_Click() For i=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Text1输出的结果是
- 1
Public Sub Proc(a%（ ）) Static i% Do a(i) ＝ a(i) ＋ a(i ＋ 1) i ＝ i ＋ 1 Loop While i < 2 End Sub Private Sub Command1_Click（ ） Dim m%, i%, x%(10) For i ＝ 0 To 4: x(i) ＝ i ＋ 1： Next i For i ＝ 1 To 2: Call Proc(x)： Next i For i ＝ 0 To 4: Print x(i)；： Next i End Sub A: 3 4 7 5 6 B: 3 5 7 4 5 C: 2 3 4 4 5 D: 4 5 6 7 8
- 2
执行下列程序段后，x的值为（ ）。x = 10For i = 1 To 5 For j = 1 To 5 Step 2 x = x - 1 Next jNext i A: -5 B: 5 C: 10 D: 0
- 3
下列程序中 s = s + j 语句共执行了______次。 Dim s As Integer Dim i As Integer, j As Integer For i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next j Next i Print s
- 4
使用数组x输出10个1-100之间的随机整数(包括1和100),下列命令中正确的是:( ) A: Dim x(9) As Integer For i = 1 To UBound(x) x(i) = Int(Rnd() * 100 + 1) Print x(i); Next B: Dim x(9) As Integer For i = 0 To UBound(x) x(i) = Rnd(10) Print x(i); Next C: Dim x(9) As Integer For i = 0 To UBound(x) x(i) = Int(Rnd() * 100 ) Print x(i); Next D: Dim x(9) As Integer For i = 0 To UBound(x) x(i) = Int(Rnd() * 100 + 1) Print x(i); Next