单选题下列程序执行时,需输入数据的记录个数必须为:DIMENSIONA(4,4)READ(*,*)A………………END()A1个B4个C16个D不超过16个
单选题
下列程序执行时,需输入数据的记录个数必须为:DIMENSIONA(4,4)READ(*,*)A………………END()
A
1个
B
4个
C
16个
D
不超过16个
参考解析
解析:
每个记录最少可以为1个数据。
相关考题:
( 35 )在窗体中有一个命令 run35, 对应的事件代码如下:private sub run35_enter()Dim num as integerDim a as integerDim b as integerDim I as integerFor I=1 to 10Num=inputbox( “ 请输入数据: ” , ” 输入 ” ,1)If int(num/2)=num/2 thenA=a+1ElseB =b+1End ifNext IMsgbox( ” 运行结果: a= ” str(a) ” ,b= ” str(b))End sub运行以上事件所完成的功能是A 对输入的 10 个数据求累加和B 对输入的 10 个数据求各自的余数,然后再进行累加C 对输入的 10 个数据分别统计有几个是整数,有几个是非整数D 对输入的 10 个数据分别统计有几个是奇数,有几个是偶数
阅读程序:Option Base 1Private Sub Form_Click()Dim a(3)As IntegerPrint "输入的数据是:";For i = 1 To 3a(i)=InputBox("输入数据")Print a(i);NextPrintIf a(1)t = a(1)a(1)= a(2)a(2)= ________End IfIf a(2)a(3)Thenm = a(2)ElseIf a(1)a(3)Thenm = ________Elsem = ________End IfPrint "中间数是:";mEnd Sub程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。
在窗体中有一个命令按钮run35,对应的事件代码如下: Private Sub run35_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i= 1 To 10 num = InputBox("请输入数据:", "输入", 1) If Int(num/2) = num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("运行结果: a=" Str(a)",b=" Str(b)) End sub 运行以上事件所完成的功能是______。A.对输入的10个数据求累加和B.对输入的10个数据求各自的余数,然后再进行累加C.对输入的10个数据分别统计有几个是整数,有几个是非整数D.对输入的10个数据分别统计有几个是奇数,有几个是偶数
运行下面的程序,单击命令按钮后,当输入分别为123和456时,输出结果为 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") b=Val(InputBox("请再输入一个数字:")) PrInt a+b End SubA.123B.456C.123123D.579
有如下程序,运行时从键盘输入3,输出结果是 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") Select Case a Case Is>2 b=a+1 Case Is>3 b=a+2 Case Is>4 b=a+3 Case Is>5 b=a+4 End Select Print a + b End SubA.8B.7C.6D.9
窗体中有命令按钮run34,对应的事件代码如下:Private Sub run34_Enter()Dim num As Integer,a As Integer,b As Integer,i As IntegerFor i=1 To 10num=InputBox(“请输入数据:”,“输入”)If Int(num/2)=num/2 Thena=a+lElseb=b+1End ifNext iMsgBox(“运行结果:a=“Str(a)”,b=”Str(b))End Sub运行以上事件过程,所完成的功能是( )。A.对输入的10个数据求累加和B.对输入的10个数据求各自的余数,然后再进行累加C.对输入的10个数据分别统计奇数和偶数的个数D.对输入的10个数据分别统计整数和非整数的个数
运行以下程序时,由键盘为变量load输入的数据为20,输出结果为______。 Private Function Wei(load As Integer),Money As Single If load<20 Then Money=load/2 Else Money=20+load End if Wei=Money End Function Private Sub Form. _Click() Dim load As Integer,fee As Single load=InputBox(“请输入一个数:”) fee=Wei(loaD)Print fee End SubA.10B.20C.30D.40
下列程序: Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4,输出的结果是A.7B.34C.3+4D.出错
下列程序的执行结果为includevoid main( ){ int a=3,b=0; int * p=a; b=+a++; 下列程序的执行结果为 #include<iostream.h> void main( ) { int a=3,b=0; int * p=a; b=+a++; cout<<*p<<','<<b<<end1; }A.3,4B.4,3C.3,4D.4,4
执行以下程序段,如果在对话框中输入8,输出结果是"Hello"的是______。A.n = InputBox("请输入一个数") Select Case n Case 7 To 1 Print "Hello" End SelectB.n = InputBox("请输入一个数") Select Case n Case Is>1, Is < 6 Print "Hello" End SelectC.n = InputBox("请输入一个数") Select Case n Case Is > 5, 1, 3 To 10 Print "Hello" End SelectD.n=InputBox("请输入一个数") Select Case n Case 1, 5, Is > 9 Print "Hello" End Select
阅读以下FORTRAN程序 READ(*,*)M,N K=MOD(M,N) 10 IF(K.GT.0)THEN M=N N=K K=MOD(M,N) GOTO 10 END IF WRITE(*,*)N END 若运行以上程序时,由键盘输入25,11,则程序输出为( )。A.3B.2C.1D.0
阅读下列FORTRAN77程序:READ(* , *)XIF(X.LE.0) THENY=0.0ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THENY= 1/XELSE IF (X.LE.10.0) THENY=1/(X+2)ELSEY = 10.0END IFWRITE(* , *)YEND上述程序运行时,由键盘输入2,则输出的结果为()。A.0.5B.0.25C.10.0D.0.0
有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F7.3)100FORMAT(1X,F8.3)END执行此程序,由键盘输入123456789,则输出S的值为:()A、1234.576B、2345.678C、345.678D、*******
有程序:DIMENSIONA(2,2)READ(*,*)ASUM=0DO10I=1,2D010J=1,210A(I,J)=A(I,J)+I+JWRITE(*,*)A(1,2)END当输入1、2、3、4时,此程序执行后的输出结果为:()A、6B、5C、7D、4
单选题当输入1.5,2.5,3.5,4.0下列程序执行后的输出结果为( )。 DIMENSIONA(2,2) READ(*,*)A SUM=0 DO10I=1,2 DO20J=I,2 K=A(I,J)*I*J 10A(1,2)=K WRITE(*,*)A(2,1) ENDA4.0B5.0C6.0D7.0
单选题阅读下列程序 READ(*,*)K WRITE(*,100)K 100 FORMAT(I5) END 程序运行时输入初始值12345,那么显示结果是()A 2345B 12345C ****D *****