题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-11-18 00:32:55

[填空题]

本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请完善本程序
Option Explicit
Private Sub CmdFind_Click( )
Dim i As Integer,j As Integer,k As Integer
Dim p As Integer,q As Integer
For i=10 To 60
For j=1 To Int(Sqr(i))
()
q=i-P
If q<>0 And judge(q) Then Exit For
Next j
If () Then
k=k+1
Text1.Text=Text1.Text & i & " "
If k Mod 5=0 Then Text1.Text=Text1.Text & vbCrlf
End If
Next i
EndSub
Public Function judge(ByVal x As Integer)As Boolean
If () Then
judge=True
Else
judge=False
End If
End Function


更多"本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请"的相关试题:

[单项选择]功能的系统分析过程中,( )是用系统的观点将已经定义了的功能加以系统化,找出各局部功能相互之间的逻辑关系,并用图表形式表达,以明确产品的功能系统,从而为功能评价和方案构思提供依据。
A. 功能评价
B. 功能整理
C. 功能计量
D. 功能分析
[简答题]编程题(26分) 【题目】 编写程序,找出给定范围内所有满足以下条件的整数:该整数的平方数的各位数字之和为素数。 【编程要求】 1.程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见。 2.运行程序,在文本框"A:"中输入查找整数范围的起始值,在文本框"B:"中输入终止值后按"查找"按钮,则将符合要求的整数按参考界面的格式输出到列表框中;按"清除"按钮,将两个文本框与列表框清空,焦点置于文本框"A:"上。 3.程序中至少应定义一个通用过程,用于求一个整数各位数字之和或判断一个整数是否是素数(注意:1不是素数)。 【要求】 将窗体文件和工程文件分别命名为F2和P2,并保存到T盘的根目录下。
[单项选择]( )是用系统的观点将已经定义了的功能加以系统化,找出各局部功能相互之间的逻辑关系,并用图表形式表达,以明确产品的功能系统,从而为功能评价和方案构思提供依据。
A. 功能整理
B. 功能评价
C. 系统分析
D. 系统评价
[单项选择]下列选项中,()是用系统的观点将已经定义了的功能加以系统化,找出各局部功能相互之间的逻辑关系是并列关系还是上下位置关系。
A. 功能评价
B. 功能分类
C. 功能整理
D. 功能定义
[填空题]

下列程序(由17行语句组成)的功能是找出101—10000之间所有符合下列条件的数:该数等于其各位数字的阶乘之和。但程序运行时提示程序的第4行有错,第4行语句应修改为() .
for i=101 to 100000
p=0
c=allt(str(i))
for j=1 to i
p=p+jc(val(substr(c,j,1)))
endfor
if i=p
i
endif
endfor
function jc
parameters x
s=1
for n=1 to x
s=s*n
endfor
return s


[简答题]改错题(14分) 【题目】 本程序的功能是:找出100~999之间的十进制数为升序数,且其对应的八进制数也是升序数的整数。所谓升序数,是指该数的十位数字值大于个位数字值,百位数字值大于十位数字值。 Option Explicit Private Sub CmdFind_Click( ) Dim n As Integer,s8 As String For n=100 To 999 s8=d2Q(n) If sx(n) And sx(Val(s8)) Then List1.AddItem n & "D==>" & s8 & "Q" End If Next n End Sub Private Function d2Q(n As Integer) As String Dim p As Integer Do p=n Mod 8 d2Q=d2Q & CStr(P) n=n/8 Loop Until n=0 End Function Private Function sx(ByVal n As Integer)As Boolean Dim num( ) As Integer,k As Integer,t As Integer Dim i As Integer t=Len(CStr(n)) ReDim num(t) For k=1 To t num(k)=Val(Mid(CStr(n),k,1)) next k For i=1 To UBound(num)-1 If num(i)>=num(i+1) Then Exit For Next i sx=True End Function 【要求】 1.新建工程,输入上述代码,改正程序中的错误。 2.改错时,不得增加或删除语句,但可适当调整语句的位置。 3.将窗体文件和工程文件分别命名为F1和P1,并保存到T盘根目录下。
[填空题]下列给定程序中,函数fun( )的功能是找出100~n(n不大于1000)之间百位数字加十位数字等于个位数字的所有整数,把这些整数放在s所指的数组中,个数作为函数值返回。 请改正程序中的错误,使它能得到正确结果。 注意:不要改动main函数,不得增行或删行,也不得更改程序的结构。 试题程序: #include <stdio.h> #define N 100 int fun(int *s,int n) { int i,j,k,a,b,c; j=0; for(i=100;i<n;i++) { /*************found***********/ k=n; a=k%10; k/=10; b=k%10; c=k/10; if(a==b+c) /************found**************/ s[j]=i; } return j; } main( ) { int a[N],n,num=0,i; do { printf("/nEnter n(<=1000):"); scanf("%d",&n); } while(n>1000); num=fun(a,n); printf("/n/nThe result:/n"); for(i=0;i<num;i++) printf("%5d",a[i]); printf("/n/n"); }
[填空题]下列给定程序中,函数proc( )的功能是找出100~m(m不大于1000)之间百位数字加十位数字等于个位数字的所有整数,把这些整数放在s所指的数组中,个数作为函数值返回。
请修改程序中的错误,使它能得到正确结果。
注意:不要改动main( )函数,不得增行或删行,也不得更改程序的结构。
试题程序:
#include<stdio.h>
#define M 1000
int proc(int *s, int n)

int i, j, k, a, b, c;
j=0;
for(i=100; i<n; i++)

//************found*************
k=n;
a=k%10;
k/=10;
b=k%10;
c=k/10;
if(a==b+c)
//************found*************
s[j]=i;

return j;

void main( )

int a[M], m, num=0, i;
do

printf("/nEnter m(<=1000): ");
scanf("%d", &m);

while(m>1000);
num=proc(a, m);
printf("/n/nThe result: /n");
for(i=0; i<num; i++)
printf("%5d", a[i]);
printf("/n/n");

[单项选择]功能评价就是要找出实现功能的最低费用作为功能的目标成本,以功能目标成本为基准,通过与功能现实成本的比较,求出两者的比值和两者差异值,作为价值工程活动的重点对象选择应该为()。
A. 功能价值高、改善期望值大的功能
B. 功能价值低、改善期望值大的功能
C. 功能价值高、改善期望值小的功能
D. 功能价值低、改善期望值小的功能
[单项选择]下面程序的功能是由随机函数产生100个在200~700之间的整数,然后找出最大者,并记下是第几个数,但程序不完整,请选择适当的内容在下划线处将程序补充完整。
Dim a(100)
For j=1 To 100
a(j)=Int(Rnd*501+200):Print a(j)
Next j : Print
p=1 : max= ______
For j=2 To 100
If a(j)>max Then max=a(j) : p=j
Next j
Print "The largest number is " ; max
Print "The position is"; p
End
A. 0
B. a(1)
C. 1.7E+38
D. 1.7E-38
[填空题]

本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。
Option Explicit
Private Sub CmdRun_Click( )
Dim m As Integer,sum As Integer,st As String
Dim i As Integer,j As Integer,k As Integer
m=Text1
For i=1 To m-1
()
For j=i To m
sum=()
If sum=m Then
st="" ’st赋以空值
For k=i To j
st= ()
Next k
List1.AddItem Left(st,Len(st)-1)
End If
Next j
Next i
End Sub


[单项选择]有些数既能表示成3个连续自然数的和,又能表示成4个连续自然数的和,还能表示成5个连续自然数的和,如30就满足上述要求。因为30=9+10+11,30=6+7+8+9,30=4+5+6+7+8,在700至1000之间满足要求的数有( )。
A. 5个
B. 7个
C. 8个
D. 10个
[判断题]EIQ分析法可以用来找出成本和收益之间实际的关系模型。
[单项选择]通过( ),可以找出各目标之间的层次关系,制约条件及需要解决的问题。
A. 逐项分析
B. 对比分析
C. 逻辑框架图
D. 鱼刺图分析
[填空题]要打印出50个在-100~100之间不同的随机整数,并找出第几个是最大数。给定的程序不完整,将程序补充完整。
Option Base 1
Private Sub Command1_Click( )
Dim b( )
Randomize
【12】
Do
x=Rnd
If x>0.5 Then y=1 Else y=-1
t=y*Int(Rnd*100)+1
【13】
Do While k<j
If t <> b(k)Then
k = k + 1
Else
Exit Do
End If
Loop
If k=j Then
ReDim Preserve b(k)
b(k)=t
Print b(k);
j=j+1
End If
Loop Until j>50
Print
【14】
Max=b(1)
For n=2 To 50
If b(n)>Max Then
【15】
p = n
End If
Next n
Print "最大数是:";Max
Print "位置在第";p;"个"
End Sub
[填空题]分析人员必须有系统的观点,能用系统的方法将复杂系统进行 【11】 ,并找出它们之间的内在联系。

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码