小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息： ①密码是六位数字，前面两位为59； ②最后两位数字相同； ③能被12和38整除。程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

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

浙江省杭州市2015年高考模拟命题比赛信息技术 (2)

小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：

①密码是六位数字，前面两位为59；

②最后两位数字相同；

③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

（1）、应用程序界面设计时，为添加“ 可能的密码有：”对象，应使用图2所示的“控件工具箱”中的（填写相应编号），并在图3所示的“属性窗口”中，将属性值设置为“可能的密码有：”。

（2）、解决此问题的相应程序如下，请根据题意将程序补充完整。

Private Sub Command1_click ( )

Dim x As Integer, s As Long, y As Integer, i As Integer

For i = 0 To 9999

S = 590000 + i

If Then

x= s mod 10

y = (s Mod 100) \ 10

If x = y Then

List1.AddItem Str(s)

End If

Next i

End Sub

举一反三

利用格里高利公式

求

，直到最后一项的值小于0.0001为止，输出

的值。

Private Sub Command1_Click()

Dim Pi As Single, t As Single

Dim n As Integer, s As Integer

Pi = 0

t = 1: n = 1:s =1

Do While Abs(t) >= 0.0001

Pi = Pi + t

n = {#blank#}1{#/blank#}

s= {#blank#}2{#/blank#}

t = s *1 / n

Loop

Text2.Text ={#blank#}3{#/blank#}

End Sub

编写VB程序，实现如下功能：在文本框Text1中输入投资金额，Text2中输入投资的目标金额，Text3中输入投资的年收益率，单击按钮Command1，在文本框Text4中输出达成预期投资目标至少需要的年数。投资收益按复利计算，如投资金额10000元，年收益率为5%，则1年后的本息为10000×（1+5%），2年后的本息为10000×（1+5%）²。程序运行界面如图所示。

【加试题】小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数，保留一位小数），在文本框Text2中输出路径值。程序界面如图所示。

实现上述功能的VB程序如下，但划线部分代码有错，请改正。

Private Sub Command1_Click()

Dim x(1 To 100) As Single， y(1 To 100) As Single

Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single

Dim i As Integer， j As Integer， k As Integer

Randomize

List1.Clear

k = Val(Text1.Text)

For i = 1 To k

x(i) = Int(Rnd * 90) / 10 + 1

y(i) = Int(Rnd * 90) / 10 + 1

List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i))

Next i

For i = 1 To k - 1

For j = 1 To k - i

If x(j) > x(j + 1) Then

x(i)=x(i) + x(j)

x(j) = x(i) - x(j)

x(j) = x(i) + x(j) ‘①

tmp = y(j)

y(j) = y(j + 1)

y(j + 1) = tmp

End If

Next j

Next i

sum = 0： length = 0

For i = 1 To k - 1

x1 = (x(i) - x(1)) ^ 2 ‘②

'变量y1计算方法同x1，代码略

length = Sqr(x1 + y1)

sum = sum + length

Next i

Text2.Text = Str(Int(sum * 10) / 10)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

小王编写了一个“学生体能情况分析”程序，其功能是分项计算名次和优秀率（分数90分及以上为优秀）。运行程序时，在列表框List1中显示所有学生的3项体能测试分数，在文本框Text1中输入测试项目代码（1表示游泳，2表示跑步，3表示跳远），单击“计算”按钮Command1后，计算结果分别显示在列表框List2和标签Label2中。程序运行界面如图1所示。

程序设计过程中数据的存储和计算方法如下：

⑴学生体能分数的存储：如图2所示，第1位学生的游泳、跑步、跳远分数依次存入数组score的第1、2、3个元素里，第2位学生的游泳、跑步、跳远分数依次存入数组score的第4、5、6个元素里，以此类推。

⑵计算名次的算法：先统计每个分数的个数，存入数组a，如图3中a(96)值为9，表示共有9个96分；然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次存入数组b，分数相同时名次并列，如图3中b(96)值为10，表示96分的名次是（并列）第10名，以此类推。

请回答下列问题：

有如下VB程序段：

Dim i As Integer, s As Integer

Dim a (1 To 10)As Integer

For i =1 To 10

a(i)=i^2

If a(i)Mod 3=0 And a(i)Mod 5 =0 Then s= 50000+ a(i)

If a(i)Mod 3=0 Or a(i) Mod 5 =0 Then s =s+ a(i)

Next i

Text1. Text Str(s)

执行该程序段后，下列说法正确的是（）

请在横线处填写正确的代码

一个正整数的阶乘是所有小于及等于该数的正整数的积，并且0的阶乘为1，即n！＝1*2*3*...*（n－1）*n。

n！＝现求n！。

def f（n）： #定义递归函数f（n）

if n＝＝0 or n＝＝1：

return 1 #定义当n为0时函数返回值为1

else：

return {#blank#}1{#/blank#} #递归定义n≥1时的通项公式

{#blank#}2{#/blank#}＝int（input（"请输入n："）） #从键盘上输入n的值

print（"n！的值为：", {#blank#}3{#/blank#}） #输出结果

相关试卷

公司介绍

服务介绍

帮助中心