网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
判断下列程序是否有错误，如有，请修改： initial begin a=0,b=0,c=0; #10 a=1,b=1; end
参考答案和解析
12. MOV DPTP , 1050H 不能将直接地址 1050H 送入DPTR ,DPTR 只能接收立即数。 13. MOV R1 , C 位寻址方式中的源操作数和目的操作数均应为位地址， R1 是字节寄存器，这样书写是不对的。 14. JMP @RO 十 DPTR 变址寻址中的变址寄存器只可使用 A 与 DPTR 相加的形式完成。 15. 寄存器 RO 与相对转移地址写反了。 16. 交换指令只能在寄存器、寄存器与直接地址、间接地址之间进行数据交换，不能与立即数进行数据交换。
更多 “判断下列程序是否有错误，如有，请修改： initial begin a=0,b=0,c=0; #10 a=1,b=1; end” 相关考题
考题
有下列程序 program test(input,output); var s:integer; ch:char; count:array[‘a‘..‘z‘]of integer; begin for ch:=‘a‘to‘z‘do count[ch]:=0; read(ch); while not eoln do begin if(ch>=‘a‘)and(chx[5])and(x[c]/c0) or not(x[a+b]>(a+b))的值是( )。AtrueBfalseC0D1
考题
设有以下程度段: begin a:=0; for i:=7 downto 2 do case I of 1,2:a:=a1; 3,4:a:=a2; 5,6:; 7,8:a:=a3 end; writeln(‘a=‘,a:1) end. 若变量均已说明,则程序运行后的输出是( )。
Aa=8B12Ca=6D0
考题
有程序段 for i:=1 to 10 do begin j:=i mod 4; case j of 0:x:‘a‘; 1:x:=‘b‘; 2:x:=‘c‘; 3:x:=‘d‘ end; end; for i:=1 to 10 do write(x:1); writeln; 输出应为( )。
AbcdabcdabcBabcdabcdabCcdabcdabcdDdabcdabcda
考题
下列程序段的执行结果是Dim A(3,3)For M = 1 To 3For N = 1 To 3If N = M Or N = 3 - M + 1 ThenA(M,N) = 1Else A(M,N) = 0 End IfNext NNext MFor M = 1 To 3For N = 1 To 3Print A(M,N)Next NPrint Next MA. 1 0 0 0 1 0 0 0 1 B. 1 1 1 1 1 1 1 1 1C. 0 0 0 0 0 0 0 0 0 D. 1 0 1 0 1 0 1 0 1
考题
下列程序段的执行结果为a=2b=0Select Case aCase 1Select Case bCase 0Print "**0**"Case 1Print "**1**"End SelectCase 2Print "**2**"End Select（ ）。A．**0**B．**1**C．**2**D．0
考题
下列程序用于判断一个整数是否为质数，试将程序补充完整。Private Sub Command1_Click()Dim n As Integern = InputBox("请输入")t = Int(Sqr(n))i = 2flag = 0While i ＜= t And flag = 0If ______Thenflag = 1Else: i = i + 1End IfWendIf ______ThenPrint "这是一个质数"ElsePrint "这不是一个质数"End IfEnd Sub
考题
下列程序段的执行结果为m=1n=1Select Case mCase 1Select Case nCase 0Print "**0**"Case 1Print "**1**"End SelectCase 2Print "**2**"End Select（ ）。A．**0**B．**1**C．**2**D．0
考题
下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是 （ ）。A．Function CT（ByVal a As Integer）If a Mod 2=0 ThenReturn 0ElseReturn 1End ifEnd FunctionB．Function CT（ByVal a As Integer）If a Mod 2=0 ThenCT=0ElseCT=1End ifEnd FunctionC．Function CT（ByVal a As Integer）If a Mod 2=0 ThenCT=1ElseCT=0End ifEnd FunctionD．Function CT（ByVal a As Integer）If a Mod 2=0 ThenReturn 1ElseReturn 0End ifEnd Function
考题
下列程序段的执行结果为a=1b=0Select Case aCase 1Select Case bCase 0Print "* *0* *"Case 1Print "* *1* *"End SelectCase 2Print "* *2* *"End Select （ ）。A．* *0* *B．* * 1* *C．* *2* *D．0
考题
给定年份，下列程序用来判断该年是否是闰年，请填空。Sub YN（）Dim x As Integerx=InputBox（"请输入年号"）If （x Mod 4=0 【10】 x Mod 100 0） 【11】 （x Mod 400=0） ThenPrint "是闰年"ElsePrint "不是闰年，是普通年份"End IfEnd Sub
考题
下面程序段中正确的是()。A.If x=2 Then y=3B
下面程序段中正确的是( )。A．If x＜0 Then y=0 If x＜1 Then y=1 If x＜2 Then y=2 If x＞=2 Then y=3B．If x＞=2 Then y=3 If x＞1 Then y=2 If x＞=0Then y=1 If x＞0 Then y=0C．If x＜0 Then y=0 Else If＞=0Then y=1 Else y=3 End IfD．If x＞=2 Then y=3 Else If＞=1 Then y=2 Else y=0 End If
考题
下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next MA．1 0 0 0 1 0 0 0 1B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1
考题
（11）下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Command1_Click() Text1.Text="" For n=3 To 100 k=Int(Sqr(n)) i=2 Flag=0 Do While i= And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If Then Text1.Text=Text1.TextStr(n)Chr(13)Chr(10) End If Next n End Sub
考题
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
下列程序段的执行结果为Dim A(3，3)For M=1 To 3For N=1 To 3If N=M Or N=3-M+1 ThenA(M,N) =1ElseA(M,N) =0End IfNext NNext MFor M=1 To 3For N=1 To 3Print A(M,N)Next NPrintNext MA．1 0 0 0 1 0 0 0 0B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D． 1 0 1 0 1 0 1 0 1
考题
下列程序段的执行结果是( )。 a = 1: b = 0 Select Case a Case 1 Select Case b Case 0 Print "**0**" Case 1 Print "**1**" End Select Case 2 Print "**2**" End Select
A. **0**B. **1**C. **2**D. 0
考题
运行下列程序，显示的结果是（ ）。 PrivateSub Command34 Click（ ）i=0 Do i=i+1 LoopWhile i%10MsgBox i End SubA.0B.1C.10D.11
考题
下列程序段的执行结果为 a=2 b=0 Select Case a Case 1 Select Case b Case 0 Print " * * 0 * *" Case 1 Print" * * 1 * *" End selec Case 2 Print " * * 2 * *" End SelectA．* * 0 * *B．* * 1 * *C．* * 2 * *D．0
考题
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next MA．1 0 0 0 1 0 0 0 0B．1 1 1 1 1 1 1 1 1C．0 0 0 0 0 0 0 0 0D．1 0 1 0 1 0 1 0 1
考题
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 print"A" Case 1 Print"B" End Select Case 2 Print"C" End SelectA．AB．BC．CD．0
考题
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print" * * 0 * *" Case 1 Print" * *1* *" End Select Case 2 Print" * * 2 * *" End SelectA．**0**B．**1**C．**2**D．0
考题
下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是A．Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 0 ElSe Return 1 End if End FunctionB．Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=0 Else CT=1 End if End FunctionC．Function CT(ByVal a As Integer) If a Mod 2=0 Then CT=1 Else CT=0 End if End FunctionD．Function CT(ByVal a As Integer) If a Mod 2=0 Then Return 1 Else Return 0 End if End Function
考题
以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End SubA． i Mod 2= 0B．x mod 2=0C．I mod 2＜＞0D．x mod 2＜＞0
考题
下面程序的运行结果为includevoid main( ){ for(int a=0,x=0;!xa
下面程序的运行结果为 #include＜iostream．h＞ void main( ) { for(int a=0，x=0；! xa＜=10;a++) { a++； } cout＜＜a＜＜end1； }A．10B．11C．12D．0
考题
下列给定程序中，函数proc()的功能是：判断一个整数m是否是素数，若是返回1，否则返回0。在main()函数中，若proc()返回1，则输出″YES″；若proc()返回0，则输出″NO″!请修改程序中的错误，使它能得出正确的结果。注意：不要改动main)函数，不得增行或删行，也不得,t更改程序的结构。试题程序：
考题
有以下程序:include using namespace std;int main ( ){ char s1[10],s2[10]; char*p
有以下程序： #include ＜iostream＞ using namespace std; int main ( ) { char s1[10],s2[10]; char *p=s1,*q=s2; cin＞＞s1＞＞s2; while (*p ! =' \0 ' ) p++; while (*q!='\0') *p++=*q++; *p='\0'; cout＜＜s1＜＜end1; return 0; }A．abcd0ghijB．abcd0ghij0C．abcdD．abcdghij
考题
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print" * * 0 * *" Case 1 Print" * *.* *" End Select Case 2 Print"* *,2 * *," End SelectA．* * 0 * *B．* * 1 * *C．* * 2 * *D．0
热门标签
最新试卷
