题库 高中信息

题干

编写“数字提取”程序,实现如下功能:在文本框 Text1 中输入包含数字和其他非数字字 符混合的原始数据,点击“数字提取”按钮 Command1,将数据中的数字以“,”间隔输出到文本 框 Text2 中。程序运行界面如图所示,VB 代码如下。请回答以下问题:
 
(1)要使程序运行后,窗体 Form1 标题立即自动显示为“数字提取”,可在 (单选,填字 母:
A.Form_Load /B.Form_Click/C.Command1_Click)事件过程中添加语句 Form1.Caption="数字 提取"。
(2)实现上述功能的 VB 程序如下,请在划线处填入合适的代码。 Private Sub Command1_Click()
Dim s As String, ch As String, flag As Boolean
Dim tmp As String, ans As String
s = Text1.Text
s = s + "." 
tmp = "": ans = ""
flag = False
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
tmp =   ①    
flag = True
ElseIf flag = True Then
ans = ans + tmp + ","
 
flag = False
End If
Next i
Text2.Text = ans End Sub
(3)如图,若删除程序中的语句“s = s + "."”,输入不变,则提取后的数字信息为 。
上一题 下一题 0.99难度 填空题 更新时间:2019-04-16 09:20:49

答案(点此获取答案解析)

同类题2

   (加试题)某校秋季运动会共n名运动员参赛,高老师编写了一个运动会号码牌查询软件,输入号码牌就能查询该号码牌所属的班级和运动员姓名。数组hm、bj、xm分别保存了本次运动会所有运动员的号码牌、所在班级和姓名的信息。第i个选手的号码牌保存在a(i)中,对应的班级和姓名保存在bj(i)和xm (i)中。

运动会号码牌查询程序界面如第16题图所示,在文本框Text1中输入号码牌,单击“查询”按钮(Command1),电脑就开始查找该号码牌的信息,如果找到对应的信息,就显示该运动员所属班级和姓名,如果没有找到,则显示“没有该号码牌的信息”。


相应程序如下,在程序①和②划线处填入适当的语句和代码,把程序补充完整。
(1)学生运动会数据存入的数据库文件是_________________;
(2)在程序画线①处应填入________________________;
(3)在程序画线②处应填入________________________。
Dim n As Integer  ‘运动员人数
Dim hm(1000) As Integer, bj(1000) As String, xm(1000) As String
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;DATA Source=" & App.Path & "\games.accdb"
conn.Open
strSQL = "SELECT * FROM Student"
Set rs.ActiveConnection = conn
rs.Open strSQL
n = 0
Do While Not rs.EOF '到记录集最后一条记录后退出循环
n = n + 1 '计数
hm(n) = rs.Fields("号码")
bj(n) = rs.Fields("班级")
xm(n) = rs.Fields("姓名")
rs.MoveNext     '移动到下一条记录
Loop
‘用冒泡排序法按a数组(号码牌)升序排列,显示在列表框List1中,代码略。
End Sub
Private Sub Command1_Click()   
Dim w As Integer
w = Val(Text1.Text)
pos =
If pos > 0 Then
Text2.Text = bj(pos)
Text3.Text = xm(pos)
Else
Text2.Text = "找不到"
End If
End Sub
Function Search(Key As Integer) As Integer
Dim i As Integer, j As Integer,
i = 1
j = n
Do While i <= j
found = Fix((i + j) / 2)
If Key = a(found) Then
Search = found
Exit Function
ElseIf      Then
j = found - 1
Else
i = found + 1
End If
Loop
Search = 0
End Function