注册

题型：单选题题类：常考题难易度：普通

浙江省台州市直高中共享发展共同体2018-2019学年高二下学期信息技术5月月考试卷

能得到一个大于等于20且小于50的随机整数的VB表达式是（）

A、Int(rnd*50)-20 B、Int(rnd*30)+20 C、Int(rnd*31)+20 D、Int(rnd*30)+1

举一反三

公司年会，领导要小李编写一个小程序，用于抽奖，小李将参加年会的人员姓名、手机号保存在一个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

下列VB函数返回值为数值的是：（）

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

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

当A=1，B=2，flag=true时，表达式NOT A<B or flag的值是（）

下列程序功能为：根据列表lst中各数字的大小关系，计算各数字升序排列的序号，并将序号保存在列表y中。如lst内容为[2,5,2,1]，程序运行后列表y的值为[2,4,3,1]。

lst = [2,5,2,1]

y = [1,1,1,1]

n = len(lst)

for i in range(①____):

for j in range(②____):

if ③____:

y[j] = y[j] + 1

else

y[i] = y[i] + 1

上述程序段3个划线处的表达式分别为（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服