题库 高中信息

题干

编程找出四位整数abcd 中满足下述关系的数:(ab+cd)(ab+cd)=abcd。小明编写了一个此问题求解的 VB程序,单击“求解” 命令按钮 Command1,在列表框List1中显示结果,如(20+25)*(20+25)=2025,则在列表框显示“2025”(注:双引号不显示)。程序设计界面如图所示:

(1)如图所示,小明通过设置“ 求解” 命令按钮 Command1 的____________ (单选,填字母:
A.CaptionB.FontC.Height )属性设置文字“求解” 为斜体。
(2)为实现上述功能,请在划线处填入合适代码或选项。
Private Sub Commandl_Click()
Dim i As Integer
Dim k As Long, m As Long, n As Long
For i = 1000 To 9999
m = i \ 100
n =___________________
k = (m + n) * (m + n)
If k = i Then
_______________________
End If
Next i
End Sub
(3) 由上述算法可知,“3025”这个四位数__________(选填:会/不会)在列表框 List1 中显示。
上一题 下一题 0.99难度 填空题 更新时间:2019-11-20 12:45:37

答案(点此获取答案解析)

同类题4

小王编写了一个统计多选题分数的VB程序。得分规则是:多选题共有6个候选项(A、B、C、D、E、F),全部答对得2分,部分答对得1分,未作答或有错误答案0分。设计一个能够评分的程序,要求如下:在文本框Text1中输入标准答案,在文本框Text2中输入学生答案(输入时必须按字母从小到大顺序输入)。点击评分按钮Command1后,将得分显示在标签Label4中。程序界面如题图所示:
(1)要使程序运行后,窗体Form1的标题栏中显示“评分”,正确的做法是______(单选,填字母)
A.将窗体的Text属性改为“评分”
B.在Form_Load()事件中输入代码
Form1.Caption="评分"
C.在Form1_Load()事件中输入代码
Form.Name="评分"
(2)实现上述功能的程序如下,请在划线处填入合适的代码:
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ___________     
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c  = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
(3)若去除加框处代码,且将文本框Text2的内容改为“BCD”,标签Label4显示的内容是________。