下列程序的作用是求所有小于或等于30的自然数对。该程序不完整,请补充完该程序(程序执行结果见下图)。
注:自然数对是指两个自然数的和与差都是平方数(如8与17)。
Private Sub Command1_Click()
Dim n As Long
Dim m As Long
Dim s As Single
Dim d As String
For n=1 To 30
For m=1 To【 】
s =n+ m
【 】
If Sqr (s)=Int(Sqr(s))【 】Sqr(D)=Int(Sqr(D))Then
Print n:m
End lf
Next m
Next n
End Sub
第2题
称分别为Command1、Command2、Command3,标题分别为“显示”、 “隐藏”、 “复制”。程序运行时,向Text1中输入的所有字符,都显示“*”。单击“显示”按钮后,在Text1中显示所有字符。再单击“隐藏”按钮后,Text1中的内容不变但显示的都是“?”。单击“复制”按钮后,把Text1中的实际内容复制到Text2中,如图25所示。注意:存盘时必须存放在考生文件夹下,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。
第3题
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。
(1) 在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是产生20个0~ 1000的随机整数,放入一个数组中,然后输出这20个整数中大于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出大于500的整数之和”),即可求出这些整数的和,并在窗体上显示出来,如图25-4所示。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2) 在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~100范围内不能被7整除的所有整数的和,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
第5题
软件生命周期可分为多个阶段,—般分为定义阶段、开发阶段和维护阶段。编码和测试属于【 】阶段。
第8题
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:
Private Sub Corrtmandl Click()
a$=”Nationalcomputer rank Examination”
n=Len(a$)
S=0
For i=1 To n
b$=Mid(a$,i,1)
Ifb$=”n”Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是【 】。
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!