- 二一组卷

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

浙江省诸暨中学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

举一反三

生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近0.618，愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序（界面如下题图所示），实现如下功能：首先，设某女躯干 a米和身高 b米比为g，分别从文本框Text1和Text2中输入。鞋跟高度 s（单位与 a、b 一致）从Text3中输入，那么新比值g=（a+s）/（ b+s），如果g=0.618，那么鞋跟高度S的值就是最佳高度。

窗体能够响应的事件是( )

某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n n-1 n-2 … 3 2 1 2 3 … n-2 n-1 n”。例如n=8时，生成的数字序列如图所示。代码如下

Private Sub Command1_Click()

Dim n As Integer, i As Integer, s As String

n = Val(Text1.Text)

s = ""

For i = 1 To 2 * n - 1

If i <= n Then ① Else ②

Next i

Label1.Caption = s

End Sub

为实现以上功能，划线①②处应分别填写

编“字符串缩写”程序，实现如下功能：在文本框Text1中输入ASCII字符串，字符串中如果有由ASCII表中相邻字符(升序)组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写威“a-dfoxcba”。程序运行界面如图所示。

将文本框Text1内输入的数据送到字符型变量n中，则应使用的语句是（）

在n个连续的方格内填字母A或B，但相邻两格都不能填B，求所有可能方案。可以用枚举算法解决，此题可以采用进制转换来解决。考虑到只包含了A与B两个字母，我们可以用二进制的0和1来代替。

程序部分代码如下：

Private Sub Command1_Click()

Dim n, m, s, i, j, count As Long

Dim flag As Boolean

Dim a(1 To 100) As Integer

n = Val(Text1.Text)

count = 0

①

For i = 0 to s-1

m = i

For j = 1 To n

a(j) = m Mod 2

m = m \ 2

Next j

flag = True

For j = 1 To n - 1

If ② Then flag = false: exit For

Next j

If flag = True Then ③

Next i

Label1.Caption =“可行方案共”+ Str(count) + “种”

End Sub

相关试卷

公司介绍

服务介绍

帮助中心