依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的_刷题宝

题干

依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等0.3mg/ml 驾驶机动车的属酒后驾车；大于或等于1.0mg/ml 驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。
解决此问题的流程图如图所示，

（1）该算法属于（填：顺序/选择/循环）结构
（2）要在窗体Form1的标题栏内显示字符串“酒精测试”，需要更改的是属性（填：name/caption/text）

（3）根据流程图编写的VB程序如下：
Private Sub Command1_Click( )
Dim x As Single
x = Val(Text1.Text)
If    ①   Then
Label2.Caption = "你属于醉酒驾车!"
②  x >=" 0.3" Then
Label2.Caption = "你属于酒后驾车!"
Else
  ③
End If
End Sub
则划线处填入的语句为① ②     ③ 。

上一题下一题 0.99难度填空题更新时间:2016-01-19 04:59:03

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

同类题1

（加试题）数组a中存储的是一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组中数的总个数为3的倍数。依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

8

5

3

Private Sub Command1_Click()
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer
Dim i As Integer, j As Integer, m As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1.Text)
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
If m Mod 3 <> 0 Then m= m -2 '(1) 把m调整到三个一组的最后一个数的位置
If key = a(m) Then
search = m : Exit Do
ElseIf key < a(m) Then
j = m - 3
ElseIf key <= a(m - 2) Then '(2)
i = m + 1
ElseIf key = a(m - 2) Then
search = m - 2 : Exit Do
ElseIf key = a(m - 1) Then
search = m - 1 : Exit Do
Else
search = 0 : Exit Do
End If
Loop
If search <> 0 Then
Text2.Text = Str(search)
Else
Text2.Text = "找不到"
End If
End Sub
加框处代码应修改为：（1）【小题1】（2）【小题2】

同类题2

有一组数据为“2、3、5、5、7、7、8”，利用顺序查找和对分查找查找5时，则分别查找几次可以找到目标值（）

A．3无法使用对分查找	B．4无法使用对分查找
C．3 1	D．4 1

同类题3

某对分査找算法的VB程序段如下：
i = 1: j = 7: s = ""
key = Int(Rnd * 100)
Do While i <= j

m = (i + j) \ 2

If key = a(m) Then

s = s + "M": Exit Do 'Exit Do 表示退出循环

ElseIf key < a(m) Then

j = m - 1: s = s + "L"

Else

i = m + 1: s = s + "R"

End If

Loop
Text1.Text = s
数组元素a(1)到a（9）的值依次为“24，35，38，41，45，69，78”。若该程序段执行后，文本框Text1中显示的内容可能是（）

同类题4

纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格（不超过w），以逗号分隔，在文本框Text2中输人限定值w，单击“分组”按钮，在标签 Label2上输出最少的分组数。程序运行界面如图所示。

（1）要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在 Form Load事件过程中添加语句（单选，填字母：

A．Form1="纪念品分组"/

B．Form1.Name="纪念品分组"/

C．Form1. Caption="纪念品分组"/

D．Fom1.Text="纪念品分组"）。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。
Private Sub Command1 Click()

Dim a(l To 1000), n As Integer, w As Integer,cnt As Integer

Dim i As Integer, j As Integer, t As Integer

Dim s As String, ch As String

Dim p As Integer, q As Integer

S= Textl. Text: w =Val(text2. Text): n=0

For i=1 To Len(s)

ch=Mid(s, i, 1)

If ch="."Then

n=n+1:a(n)=t: t=0

Else

t=_________①___________

End If

Next i
For i=n To 2 Step-1

For j=1 To '②

If a(j)< a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t

End If

Next j
Next i
cnt= 0
p=1: q=n
Do While p<q

cnt=cnt+1

If ________③_________ Then

p=p+1:q=q-1

Else

End If

Loop
If p=q Then cnt=cnt+1
Label2 Caption- Str(cnt)
End sub
（3）若在文本框Text1中输入“50，30，100，70，80，40，50，20”，文本框Text2中输人“110”，单击“分组”按钮，标签Labe2中显示的内容是____________。

同类题5

（加试题）小王编写了一个猜价格的VB程序，程序界面如图所示。程序运行时，在列表框List1中显示20个随机生成的在150,250之间的价格及其序号。在文本框Text1中输入报价，单击Command1 “猜测”按钮后，在Label3中输出猜中价格对应的序号。

实现上述功能的VB程序如下，但加框处代码有误，请改正。
Dim d(1 To 20) As Integer
Private Sub Form_Load()
For i = 1 To 20 '生成20个随机价格
d(i)=Int(Rnd*100)+150 ‘（1）________
Next i
For i = 1 To 19
For j = 20 To i + 1 Step -1
If d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If

Next j

Next i
For i = 1 To 20

List1.AddItem Str(i) + Str(d(i))

Next i
End Sub
Private Sub Command1_Click()
Dim baojia As Integer,i as integer, j as integer, t as integer , m as integer
Randomize
List1.Clear
baojia = Val(Text1.Text)
i = 1
j = 20
Do While i<= j
m=(i+j)/2 ‘（2）________
If baojia = d(m) Then
Label3.Caption = "猜中第" + Str(i) + "个"
Exit Do
ElseIf baojia<d(m) Then
j = m - 1
Else
i=m-1 ‘（3）________
End If
Loop
End Sub

相关知识点