网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
1、编写判断一个整数是否偶数的程序： isEven :: Integer -＞ Bool
参考答案和解析
a%2==0
更多 “1、编写判断一个整数是否偶数的程序： isEven :: Integer -＞ Bool” 相关考题
考题
对输入一个整数进行判断，若是偶数，输出even，否则输出odd，在子函数fun2功能是判定整数是否为偶数，若是偶数，返回1，否则返回0int fun2(int x){if(x%2==0)；return 0;}main(){int n;scanf("%d",n);ifprintf("even\n");else printf(odd\n");}
考题
（21）窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End SubPrivate Sub Command2_Click( )m=InputBox("请输入一个正整数")ReDim a(m)End Sub运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组a 中元素的个数是（ ）。A）5B）6C）10D）11
考题
设有如下程序：Private Sub Command1_Click（）Dim c As Integer, d As Integerc = 4d = InputBox（"请输入一个整数"）Do While d 0If d c Then c = c + 1End If d = InputBox（"请输入一个整数"）LoopPrint c + dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。A．12B．11C．10D．9
考题
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)＝InputBox(“请输入一个整数”) B(3-k)＝A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为______。A．0B．2C．3D．4
考题
Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，2l，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。Function Isfab(x As Integer)As BooleanDim a As Integer,b As Integer,c As Integer,flag As Booleanflag=Falsea=1：b=1Do While Xbc=a+ba=bb=cIf x=b Then flag=TrueLoopIsfab=flagEnd Function测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是( )。A．把a=b与b=c的位置互换B．把c=a+b移到b=c之后C．把Do While xb改为Do While xbD．把If x=b Then flag=True改为If x=a Then flag=True
考题
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．lB．2C．5D．8
考题
窗体上有Commandl、Command2两个命令按钮。现编写以下程序：OptionBase 0Dim a()As Integer，m As IntegerPrivate Sub Commandl_Click()m=InputBox(”请输入一个正整数”)ReDim a(m)End SubPrivate Sub Command2_Click()in=InputBox(”请输入一个正整数”)ReDim a(m)End Sub运行程序时，单击Commandl后输入整数10，再单击Command2后输入整数5，则数组a中元索的个数是A．5B．6C．10D．11
考题
在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() DimA(4)As Integer,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别A．0B．2C．3D．4
考题
某人编写了下列程序，用来求10个整数(整数从键盘输入)中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k=1 To 10 a(k)=InputBox("输入一个整数") Next k max=0 For k=1 To 10 If a(k)＞max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的。程序需要修改。下列修改中可以得到正确运行结果的是( )。A．把Ifa(k)＞max Then 改为 If a(k)＜max ThenB．把max=a(k)改为a(k)=maxC．把第2个循环语句For k=1 To 10改为For k=2 To 10D．把max=O改为max=a(10)
考题
在窗体上画一个命令按钮，然后编写如下程序：Sub S1(ByVal x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=tEnd SubPrivate Sub Command1_ Click() Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print "a="；a="b="；bEnd Sub 程序运行后，单击命令按钮，输出结果是______。A．a=30 b=10B．a=30 b=30C．a=10 b=30D．a=10 b=10
考题
窗体中有命令按钮Command1和文本框Text1，事件过程如下：Function result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseEnd IfEnd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)“是偶数．”ElseTextl=Str(x)“是奇数．”End IfEnd Sub运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。A．result(x)=“偶数”B．result(x)C．result(x)=“奇数”D．NOT result(x)
考题
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a=0 Then x=x-1 Else If b＜＞0 Then End If End If If c＜＞0 Then x=3 Else x=4 End If Print x End Sub 程序运行后，单击命令按钮，其输出结果为 ______。A．34B．4C．35D．3
考题
在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form Load( ) Show Text1.Text="" Text1.SetFocus End Sub Pfivate Sub Form_MouseUp(BuHon As Integer，Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，shift As Integer) Print"Visua1 Basic"； End Sub 程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是A．VisualBasicB．程序设计C．A程序设计D．Visual Basic程序设计
考题
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为______。A．1B．2C．3D．4
考题
在窗体上画一个命令按钮，名称为Command1，然后编写下列代码： Option Base 0 Private Sub Command1 Click（ ） Dim A1(4)As Integer，A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(”请输入一个整数”) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。A.0B.1C.2D.3
考题
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(xy，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．5D．8
考题
(7）在窗体上画1个名称为Command 1的命令按钮，然后编写如下程序：Private Sub Command 1 Click()Dim m As Integer, x As IntegerDim flag As Booleanflag=Falsen=Val(InputBox("请输入任意1个正整数"））Do While Not flaga＝2flag=【7】Do While flag And a = Int(Sqr(n))If n／a=n＼a Thenflag=FalseElse【8】End IfLoopIf Not flag Then n=n+lLoopPrint【9】End Sub上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。
考题
在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。对下面程序说法正确的是（） 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 FunctionA、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0B、在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回0，否则返回1C、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回1，否则返回0D、在F1中判断所输入的整数是否是偶数，如果是偶数，过程F1返回0，否则返回1
考题
问答题利用穷举法编写一个算法判断给定的正整数n是否是素数，即判断n是否只能被1和自身整除。
热门标签
最新试卷
