下面程序运行后,单击命令按钮,输出的结果是( )。
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(2 To 6),i%,str1#, str2#
For i=1 To 4
a(i)=1
Next
For i=2 To 6
b(i)=i
Next
str1=YAG(A)
str2=YAG(B)
Print "str1="; str1; "str2=": str2
End Sub
Function YAG(a( ) As Integer)
Dim t#,i%
t=1
For i=LBound(A) To UBound(A)
t=t*a(i)
Next
YAG=t
End Function
A:str1=24 str2=720 B:str1=12 str2=360 C:str1=24 D:str2=180 E:str1=36 str2=720
定义变量如下:
Dim Str_x
Str_x="祝你成功!"
若在立即窗口中显示Str_x的值,下面正确的是______。
A:Debug. Print Str_x B:PictureBox. Print Str_x C:Printer. Print Str_x D:Print Str_x
下面程序运行后,单击命令按钮,输出的结果是
Private Sub Command1_Click( )
Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
For i = 1 To 4
a(i) =i
Next
For i = 2 To 6
b(i) =i
Next
str 1 = YAG (
A:
str 2 = YAG ( B:
Print "str1 ="; str1; "str2 ="; str2
End Sub
Fu
下列程序的运行结果为
#include<stdio.h>
void abc(char * str)
int a,b;
for(a=b=0;str[a]!=’/0’;a++)
if(str[a]!=’c’)
str[b++]=str[a];
str[b]=’/0’;
void main( )
char str[]="abcdef";
abc(str);
printf("str[]=%s",str);
A:str[]=abdef B:str[]=abcdef C:str[]=a D:str[]=ab
下面程序运行后,单击命令按钮,输出的结果是
Pivate Sub Cornmand1_Click( )
Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i)=i
Next
str1=YAG(
A:
str2=YAG( B:
Print"str1=";str1;"str2=";str2
End Sub
F
下列程序的运行结果为
#include<stdio.h>
void abc(char*str)
int a,b;
for(a=b=0;str[a]!=’/0’;a++)
if(str[a]!=’c’)
str[b++]=str[a];
str[b]=’/0’;
void main( )
char str[]="abcdef";
abc(str);
printf("str[])=%s",str);
A:str[]=abdef B:str[]=abcdef C:str[]=a D:str[]=ab
下面程序运行后,单击命令按钮,输出的结果是 Private Sub Command1_Click( ) Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4 a(i) =i Next For i = 2 To 6 b(i) =i Next str 1 = YAG (a) str 2 = YAG (b) Print "str1 ="; str1; "str2 ="; str2 End Sub Function YAG(a( )As Integer) Dim t#,i% t=1 For i=LBound(a)TO UBound(a) t=t * a(i) Next YAG=t End Function
A:str1=24 str2=720 B:str1=12 str2=360 C:str1=24 str2=180 D:str1=36 str2=720
下面程序运行后,单击命令按钮,输出的结果是 Pivate Sub Cornmand1_Click( ) Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2# For i=1 To 4 a(i)=i Next For i=2 To 6 b(i)=i Next str1=YAG(a) str2=YAG(b) Print"str1=";str1;"str2=";str2 End Sub Function YAG(a( )As Integer) Dim t#,i% t=1 For i=LBound(a)To UBound(a) t=t*a(i) Next YAG=t End Function
A:str1=24 str2=720 B:str1=12 str2=360 C:str1=24 str2=180 D:str1=36 str2=720
定义变量如下: Dim Str_x Str_x="祝你成功!" 若在立即窗口中显示Str_x的值,下面正确的是______。
A:Debu Print Str_x B:PictureBo Print Str_x C:Printe Print Str_x D:Print Str_x