题目内容
（请给出正确答案）
运行下列程序，输入如下两行：
Hi，
I amhere．
弹出的窗体中的显示结果是（）。Private Sub Commandll_Click
Dim abeAs String,sum As String
sum Ⅰ””
Do
abc=InputBox(”输入abc”)
If Right(abc，1)=”．”Then Exit Do
sum=sum+abc
Loop
MsgBoxsum
End Sub
A.Hi
B.I
C.am
D.here
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“运行下列程序，输入如下两行： Hi， I amhere． 弹出的窗体中的显示结果是（）。Private Sub Commandl”相关的问题
（10）运行下列程序，输入如下两行：
Hi,
I am here．
弹出的窗体中的显示结果是 【10】 。
Private Sub Command11_Click()
Dim abc As String, sum As string
sum=""
Do
abc=InputBox("输入abc")
If Right(abc,1)="." Then Exit Do
sum=sum+abc
Loop
MsgBox sum
End Sub
下列给定程序中，函数fun()的功能是：给一维数组a输入任意4个整数，并按如下的规律输出。例如输入1，2，3，4，程序运行后输出以下方阵：
4 1 2 3
3 4 1 2
2 3 4 1
1 2 3 4
请改正程序中的错误，使它能得出正确的结果。
注意；不要改动main 函数，不得增行或删行，也不得更改程序的结构。
试题程序；
include ＜stdio.h＞
define M 4
/*******************************/
void fun(int a)
{int i,j,k,m;
printf("Enter 4 number: ");
for (i=0; i＜M; i++) scanf ("%d", &a [i] );
printf ("\n\n The result : \n\n ");
for (i=M; i＞0; i--)
{ k=a [M-1];
for (j=M-1; j＞0; j--)
/**********************************/
a[j]=a[j+1];
a[0]=k;
for (m=0 ;m＜M; m++ ) printf ("%d ", a [m]);
printf ("\n ");
}
}
main ()
{int a [M];
fun(a); printf("\n\n ");
}
如果d盘上的A.txt文件的内容有如下两行： CB1+2=3D ZX7*8!! 则下列程序运行后D盘上的B.txt文件的内容为______ #include ＜stdio.h＞ #include ＜stdlib.h＞ int main() { int c; FILE *fp1,*fp2; if((fp1=fopen("D:\\A.txt","r"))==NULL) { printf("file error!\n"); exit(0); } if((fp2=fopen("D:\\B.txt","w"))==NULL) { printf("file error!\n"); exit(0); } c=fgetc(fp1); while(c!=EOF) { if (c＞='0' && c＜='9') fputc(c,fp2); c="fgetc(fp1);" } fclose(fp1); fclose(fp2); return 0;＞
如果d盘上的A.txt文件的内容有如下两行： CB1+2=3D ZX7*8!! 则下列程序运行后D盘上的B.txt文件的内容为______ #include ＜stdio.h＞ #include ＜stdlib.h＞ int main() { int c; FILE *fp1,*fp2; if((fp1=fopen("D:\\A.txt","r"))==NULL) { printf("file error!\n"); exit(0); } if((fp2=fopen("D:\\B.txt","w"))==NULL) { printf("file error!\n"); exit(0); } c=fgetc(fp1); while(c!=EOF) { if (c＞='0' && c＜='9') fputc(c,fp2); c="fgetc(fp1);" } fclose(fp1); fclose(fp2); return 0;＞
在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
