浙教版 高中信息技术 选修1 第四章 VB程序设计初级章末习题（困难程度）（含解析）

选修一第四章VB程序设计初级章末习题（困难程度） 一、选择题（本大题共14小题） 下面的 VB 程序运行后，i 的值为 5 的是（）。 A. B. C. D. 有如下VB程序段： s ="" For i = 1 To Len(Text1. Text) ? ch = Mid(Text1. Text, i, 1) ? If ch >= "a" And ch <= "z" Then ??? n = (Asc(ch) - Asc("a") + 4) Mod 26 ??? s = s + Chr(Asc("a") + n) ? ElseIf ch >= "A" And ch <= "Z" Then ??? n = (Asc(ch) - Asc("A") + 4) Mod 26 ??? s = s + Chr(Asc("A") + n) ? Else ??? s = s + ch ? End If Next i Text2. Text = s 文本框Text1的内容为“Python3.5”。执行程序后，文本框Text2中显示的内容是（） A. tcxlsr B. Tcxlsr C. tcxlsr3.5 D. Tcxlsr3.5 某vb程序段如下， S=”26170534” : n=len(s) :y= “” For i=1 to n ?? arry(i)=mid(s,i,1) Next i For i=1 to n ? k=i For j=i to n step 2 ??? If arry (j)< arry (k) then? k=j Next j If k<>i then t= arry (k):a(k)= arry (i): arry (i)=t y=y& arry (i) Next i Label1.caption=y 该程序运行后，标签中显示的内容是（） A. 0123 B. 4567 C. 01234567 D. 04152637 下列赋值语句，语法错误的是 A. text1.text="vb语言" B. a+b=y C. y=a+b D. i=i+1 在文本框中输出下列VB表达式的结果，其中结果显示为3的有 ①7 mod—4； ? ②Abs(int(—4．8))—2； ③Mid(“apple123”，7，1)+“1”；? ④sqr(9) A. ①②③ B. ①②④ C. ①③④ D. ②③④ 某个VB应用程序中使用如下代码读取数据库中的信息: Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim n as Integer Private Sub Form_Load() conn.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;data source =" + App.Path + "\data\qizhong.accdb"??? ‘此行与上一行为同一行，因印刷排版限制而换行 conn.Open sql = "select * from chengji" Set rs.ActiveConnection = conn rs.Open sql n=1 Do while Not rs.EOF ?? ?List1.AddItem rs("姓名") + rs("技术") ?? ?rs.MoveNext n=n+1 Loop End Sub 运行上述程序，以下说法不正确的是（???? ） A. 当前读取的数据库文件是Data文件夹中的qizhong.accdb文件 B. 数据库中存在一个名为student的数据表 C. List1列表框中将显示指定的数据表中所有记录的 "姓名" + ”技术”字段的值 D. 窗体加载完成后，读取的数据表中总记录数为n-1 阅读VB代码，此段代码能实现的功能是_____。 i=101 c=0 do while i<=997 ??? if? (i+(i+2)) mod 7=0 then ?????? c=c+1 ??? end if i=i+2 loop print c A. ? 求100—999之间的两个连续偶数之和能被7整除的偶数对之和 B. ? 求100—999之间的两个连续偶数之和能被7整除的偶数对的个数 C. ? 求100—999之间的两个连续奇数之和能被7整除的奇数对之和 D. ? 求100—999之间的两个连续奇数之和能被7整除的奇数对的个数 某对分查找算法的VB程序段如下：（） i = 1: j = 7 key = Int(Rnd() * 100) Do While i <= j ??? m = (i + j) \ 2 ??? If a(m) = Key Then ??????? Exit Do ??? ElseIf a(m) > Key Then ??????? j = m - 1 ??? Else ??????? i = m + 1 ??? End If Loop 数组元素a(1)到a(7)的值依次为“25,42,53,66,77,83,98”，运行上述程序段后，下列条件表达式肯定不成立的是 A. j-i=0 B. i-j=2 C. i=8 D. m<=7 有如下VB程序段： Private Sub Commandl_Click() Dim i As Integer, s As Integer s=0 For i = 1 To 3 step 2 ? s = s + f(i) Next i Text1.Text = Str(s) End Sub Function f(n As Integer) As Integer ? If n = 1 Then ??? f=2 ? Else ??? f = f (n - 1) + n ? End If End Function 执行该程序段后s的值为（） A. 2 B. 7 ... ...