网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
编写程序实现以下功能：计算beg到end之间的所有水仙花数并输出（水仙花数是一个三位整数，其值与各位数字的立方和相等）。如果beg到end之间不存在水仙花数，则输出“not found”。
参考答案和解析
10 分频
更多 “编写程序实现以下功能：计算beg到end之间的所有水仙花数并输出（水仙花数是一个三位整数，其值与各位数字的立方和相等）。如果beg到end之间不存在水仙花数，则输出“not found”。” 相关考题
考题
编写一个求出找出所有水仙花数的程序，判断一个数是否是水仙花数由子函数完成，输出由主函数完成。若一个三位正整数，若它的所有数字立方和等于该数本身，则为水仙花数。例如 153=13+53+33请帮忙给出正确答案和分析，谢谢!
考题
（ 9 ） 下面的程序执行时 ， 可以从键盘输入一个正整数 ， 然后把该数的每位数字按逆序输出 。 例如 ： 输入 7685 ，则输出 5867 ，输入 1000 ，则输出 0001 。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox( “ 请输入一个正整数 ” )While x_ _[11] ___Print x Mod 10;x=x\10WendPrint__ [12] __End Sub
考题
从键盘上输入一个实数nu，利用字符串函数对该数进行处理，如果输出的内容不是字符End，则程序输出的内容是( )。 nu=InputBox("nu=") n$=Str$(nu) p=InStr(n$，".") if p＞0 Then Print Mid$(n$,P) Else Print"END" End IfA．用字符方式输出数据nuB．输出数据的整数部分C．输出数据的小数部分D．只去掉数据中的小数点，保留所有数字输出
考题
（11）下列程序功能是：弹出一个对话框询问用户是否输出，如果是，则输出：是否结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox("输出结果？"vblnformation+vbYesNo,"提示：") If a=Then Print "Myresult" End If End Sub
考题
一个三位数的各位数字之和是16，其中十位数字比个位数字小3。如果把这个三位数的百位数字与个位数字对调，得到一个新的三位数，则新的三位数比原三位数大495，则原来的三位数是多少?A．169B．358C．469D．736
考题
在考生文件夹下有“db4．mdb”数据库。创建实现求“水仙花数”的模块“模块1”，实现求“水仙花数”并用消息框输出。“水仙花数”是指一个三位数，其各位数字的立方和恰好等于该数的本身。例如 153=1*1*1+5*5*5+3*3*3。要求：“水仙花数”用DO While循环实现。运行该模块的结果如图所示。
考题
以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。Private Sub Command1 _Click( )For i = 1 To 20x=Int(【 】*200+ 100)If【 】 = 0 ThenPrint xS = S +【 】End IfNext IPrint "Sum = "; SEnd Sub
考题
下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5 8 6 7；输人1000，则输出0 0 0 1。请填空。 Private Sub Command1_Click Dim x As Integer X=InputBox(“请输入一个正整数”) While x 【11】 Print x Mod 10； x=x＼10 Wend Print 【12】 End Sub
考题
程序PROGl．G的功能是：寻找并输出ll至999之间的数m，它满足m、m2和m3均为回文数。所谓回文数是指其各位数字左右对称的整数，例如l21，676，94249等。满足上述条件的数如m=11，m2=121，m3=1331皆为回文数。请考生编制函数int JsValue(long m)实现此功能，如果是回文数，则函数返回l，反之则返回0。最后把结果输出到文件out．dat中。 注意：部分源程序存放在test．c文件中。 请勿改动主函数main。
考题
执行以下程序段，如果在对话框中输入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
考题
阅读以下说明和流程图，填补流程图和问题中的空缺(1)～(5)，将解答填入答题纸的对应栏内。 【说明】 设整型数组A[1：N]每个元素的值都是1到N之间的正整数。一般来说，其中会有一些元素的值是重复的，也有些数未出现在数组中。下面流程图的功能是查缺查重，即找出A[1：N]中所有缺的或重复的整数，并计算其出现的次数（出现次数为0时表示缺）。流程图中采用的算法思想是将数组A的下标与值看作是整数集[1：N]加上的一个映射，并用数组C[1：N]记录各整数出现的次数，需输出所有缺少的或重复的数及其出现的次数。【流程图】【问题】 如果数组A[1：5]的元素分别为{3，2，5，5，1}，则算法流程结束后输出结果为： (5) 。 输出格式为：缺少或重复的元素，次数（0表示缺少）
考题
函数DIFF（‘A’）代表（）。A、等价于VAL（‘A’，END）＋A的回零后值-A的回零前值-VAL（‘A’，BEG）B、等价于VAL（‘A’，END）＋A的回零后值＋A的回零前值＋VAL（‘A’，BEG）C、等价于VAL（‘A’，END）－A的回零后值-A的回零前值＋VAL（‘A’，BEG）D、等价于VAL（‘A’，END）－A的回零后值＋A的回零前值-VAL（‘A’，BEG）
考题
第五套人民币固定水印，均位于各票面正面左侧空白处，迎光透视，可以看到立体感很强的水印，20、10、5纸币的固定水印分别为（）。A、水仙花、兰花和荷花B、荷花、兰花和水仙花C、水仙花、月季花和荷花D、荷花、月季花和水仙花
考题
单选题第五套人民币固定水印，均位于各票面正面左侧空白处，迎光透视，可以看到立体感很强的水印，20、10、5纸币的固定水印分别为（）。A
水仙花、兰花和荷花B
荷花、兰花和水仙花C
水仙花、月季花和荷花D
荷花、月季花和水仙花
考题
单选题一个三位数的各位数字之和是16。其中十位数字比个位数字小3。如果把这个三位数的百位数字与个位数字对调，得到一个新的三位数，则新的三位数比原三位数大495，则原来的三位数是多少？（ ）A
169B
358C
469D
736
考题
问答题编一个程序，打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，153=1*1*1+5*5*5+3*3*3，所以153是“水仙花数”。
热门标签
最新试卷