- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省诸暨中学2018-2019学年高二上学期信息技术10月阶段性考试试卷

编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如图所示。

（1）、若要修改窗体背景颜色，可在其属性窗口中属性的属性值进行修改。

（2）、解决这个问题采用的算法是（填字母：A 、解析算法 B 、枚举算法）

（3）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim i As Integer, x As Integer, c As Integer

c = 0

For i = 1000 To 9999

x =

If And x = 7 Then

'将符合条件的四位数显示在列表框中

num = num + 1

End If

Next i

Label2.Caption = "共有："+ +"个"

End Sub

举一反三

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s As Integer, t As Integer, k As Integer

s = 0

For i = 1 To 1000

n = i

t = 0

k = 0

Do While n > 0

If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

{#blank#}1{#/blank#}

Loop

If {#blank#}2{#/blank#}Then s = s + 1

Next i

Text1.Text = Str(s)

End Sub

相关试卷