以下VB程序段的功能是用DO语句求1~1000之间满足“用3除余2,用5除余3，用7除余2”的数。并将结果在list1中列出，并在label1处显示符合条件的数的个数。 Private Sub Command1Click() Dim i As Integer Dim j As Integer i = 1: j = 0 list1.clear Do While i &lt;= 1...

题型：综合题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷九

以下VB程序段的功能是用DO语句求1~1000之间满足“用3除余2,用5除余3，用7除余2”的数。并将结果在list1中列出，并在label1处显示符合条件的数的个数。

Private Sub Command1Click()

Dim i As Integer

Dim j As Integer

i = 1: j = 0

list1.clear

Do While i <= 1000

If （i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2） Then

List1.AddItem i

①

j = j + 1

End If

i = i + 1

Loop

Label1.Caption = Str(j)

End Sub

（1）、程序中①处应填入的代码是

（2）、程序运行结束后，变量i的值为

举一反三

三个正整数a、b、c满足等式a²+b²=c² ， a、b、c称为“勾股数”，求出100以内所有“勾股数”可采用的算法是（）

求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图(图1)所示，Command1鼠标单击事件过程的流程图如图(图2)所示。

程序代码如下：

Private Sub Command1_Click()

Dim i As Integer

List1.Clear '清除列表框内容

For i = 3 To 97 ___①___

If f(i) And f(i+2)=true Then

List1.AddItem Str(i) + " 和 " + Str(i + 2)

End If

Next i

End Sub

Private Function f(x As Integer) As Boolean '判断是否为素数，若是返回true,若不是则返回false

………

End Function

珠心算是在大脑中以算珠表象作为载体，运用珠算法则所进行的计算。某学校的珠心算老师采用一种快速考查珠心算加法能力的测验方法，他随机给出一个正整数集合，集合中的数各不相同，然后要求学生回答：其中共有多少个数恰好等于集合中另外两个（不同的）数之和，例如集合{1，2，3，4}，一共有2个数等于集合中另外两个数之和，它们是3、4（4=3+1，3=2+1）。将上述算法编写成程序，其功能如下：程序运行时产生n个范围在[1，100]内的不同的随机整数存储在数组a中，并在列表框List1中显示，单击按钮Command1后，在标签Label1上输出结果，如图所示。

古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Text1中输入一个大于1的正整数，单击“判断”按钮Command1，在标签Label1中显示判断结果。程序设计界面如图所示。

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：

5*5=25

6*6=36

25*25=625

76*76=5776

……

那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框List1中显示100以内的所有孪生质数对（运行效果如图所示）。

实现上述功能的VB代码如下。

Dim a(1 To 50) As Integer

Private sub Command1_Click()

Dim i As Integer

k=0: i=3

Do While i<= 100

If Not prime(i) Then

k=k+1

End If

i=i+2

Loop

For i=2 To k

If Then

List1 AddItem Str(a(i-1))+"和"+ Str(a(i))

End if

Next i

End Sub

Function prime (x As Integer)As Boolean

prime=False

For i=2 To Int(sar(x))

If x Mod i=0 Then

prime=True

Exit for

End If

Next i

End Function

相关试卷

公司介绍

服务介绍

帮助中心