- 二一组卷

题型：综合题题类：难易度：普通

新疆伊犁哈萨克自治州霍城县2023-2024学年高一上学期信息技术10月月考试卷

水仙花数是指一个各位数字的立方和等于该数本身的三位数。例如：153=1³+5³+3³ ，所以153是水仙花数。小张编写了如下程序，输出1000以内的水仙花数：

for n in range( 100,1000)：

i=n//100

j=n//10%10

k=n%10

if n= ：

print(n)

（1）、不同的运算符标明对操作数进行不同类型的运算，以上程序中有一处运算符使用错误，请你帮小张改正。

（2）、表达式由操作数通过运算符组合而成，请你补全求水仙花数的表达式。

举一反三

公司年会，领导要小李编写一个小程序，用于抽奖，小李将参加年会的人员姓名、手机号保存在一个access数据库中库名：年会嘉宾.accdb 数据表名为：联系人
程序设计的主要思路是：窗体装入时读出所有嘉宾的姓名和手机号，保存在两个数据中，从text1中取得要抽奖的人数，用随机函数产生1~num间的数作为中奖号，从数据中读出对应的姓名和手机号，手机号中间4位用“新年快乐”代替。已抽中过的姓名和手机号从数据中删除，以防止重复中奖。

Dim sname(1 To 1000) As String   ‘用于保存嘉宾姓名
Dim phone(1 To 1000) As String   ‘用于保存嘉宾手机号
Dim num As Integer ‘未抽奖人数
Private Sub Command1_Click()
Dim n As Integer   ‘拟抽奖人数
Randomize
n = Val(Text1.Text)
List1.Clear
If     ①     Then
For i = 1 To n
    k = Int(Rnd * num) + 1
    List1.AddItem Str(i) + " " + sname(k) + "   " +   ②
    For j = k To num
        sname(j) = sname(j + 1)
        phone(j) = phone(j + 1)
    Next j
    num =      ③
Next i
Else
    List1.AddItem "剩余的数据不足！"
End If
End Sub
Rem 下列程序段用于从数据库中读取嘉宾的姓名和手机号，分别保存在全局变量sname()和phone()两个数组中，设嘉宾个数不超过1000个。
Private Sub Form_Load()
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString = "provider=microsoft.ace.oledB．12.0;data source=" & App.Path & "\年会嘉宾.accdb "
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from 联系人"
num = 0
Do While Not rs.EOF And num < 1000
    num = num + 1
    phone(num) = rs.Fields("联系电话")
    sname(num) = rs.Fields("姓名")
    rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

在Visual Basic中，下列表达式的值不等于3的是（）

在Visual Basic中，表达式Len("-100")+100的值是（）

下列选项的结果与其他选项不同的是（）

某 VB 程序如下：

Dim a(1 To 6) As Integer

Randomize

a=n Mod k

n=n\k,k=k+1,s=s+a

a(1) = Int(11 * Rnd) + 2

For i = 2 To 6

a(i) = Int(11 * Rnd) + 2

If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1

ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)

End If

Next i

'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（）

一个正整数，如果它能被7整除，或者它的十进制表示法中某一位上的数字为7,则称其为与7相关的数。现求所有小于等于n的与7无关的正整数的平方和。实现上述功能的部分Python程序如下，请在划线处填入合适的代码。

n=int(input())

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

for i in range(n+1):

flag=False

if i%7==0:

flag=True

m=i

while {#blank#}2{#/blank#}:

if m%10==7:

flag=True

m//=10

if {#blank#}3{#/blank#}:

sum=sum+i*i

print(sum)

相关试卷

公司介绍

服务介绍

帮助中心