sub1(char a
举一反三
- 运行下面的程序，第二行显示结果是___________。 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
- 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Call sub1(-15.1,2.54) End Sub Public Function sub1(a As Integer,ByVa1 b As String) As Integer a＝Val(b) sub1=a Print sub1 End Function 程序运行后，单击命令按钮，在窗体上输出的是 A: 3 B: 2 C: -15 D: 提示出错
- 有以下程序 #include＜stdio.h＞ sub1(char a，char B) char c；c＝a；a=b；b＝c； sub2(char *a，char B) char c；c＝*a；*a＝b；b＝c； sub3(char *a，char *B) char c；c=*a；*a=*b;*b=c； main() cha，a，b； a＝’A’；b＝’B’；sub3(&a，&b) putchar( A: ;putchar( B: ； C: a＝’A’；
- C: ISUB\SUB1AUTO.BAT文件的路径是从C盘根目录起经SUB子目录再到SUB1子目录。()
- 以下程序的输出结果是 #include"stdio.h" sub1(chara,charb){charc;c=a;a=b;b=c;} sub2(char*a,charb){charc;c=*a;*a=b;b=c;} sub3(char*a,char*b){charc;c=*a;*a=*b;*b=c;} main() {chara,b; a='A';b='B';sub3(&a,&b);putchar(a);putchar(b); a='A';b='B';sub2(&a,b);putchar(a);putchar(b); a='A';b='B';sub1(a,b);putchar(a);putchar(b); }