办公用品入库单
|
物资编号 |
物资名称 |
单位 |
单价 |
入库数量 |
入库日期 |
审核 |
|
105201 |
铅笔 |
支 |
￥0.80 |
500 |
2021/6/21 |
已审核 |
|
105202 |
钢笔 |
支 |
￥75.00 |
100 |
2021/6/21 |
未审核 |
|
305203 |
美工刀 |
把 |
￥5.00 |
160 |
2021/6/21 |
已审核 |
|
405204 |
橡皮 |
块 |
￥2.00 |
200 |
2021/6/21 |
已审核 |
下列关于“物资入库”数据表的描述，正确的是（ ）
key = Val(Text1．Text)
s="" ：i=1；j= 10
Do While i<=j
m=(i+j)\2
If a(m)= key Then Exit Do 'Exit Do表示退出循环
If key < a(m) Then
j=m-1：s=s+"L"
Else
i=m+1 ：s=s+ "R"
End If
Loop
按非降序排序的整型数组a(1)到a( 10)的值依次为“11，23，31，39，44，52，60，x，69，89”。在文本框Text1中输入66，执行该程序段后s值为“RRL”，则x的可能值的个数为( )
请回答下列问题：
编写VB程序，实现上述功能。运行程序，在列表框List1中显示全部选票，小李收集的选票在前，小王收集的选票在后。单击“分析”按钮Command1，在列表框List2中按作品编号非降序显示全部选票，在文本框Text1中显示最具人气奖的作品编号。程序运行界面如图所示。
'm和n是常量，代码略
Dim a(l To n) As String，c(1 To n) As String
Private Sub Form_ Load( )
'将n张选票的作品编号存入数组a，在List1中显示，代码略
'a(1)~ a(m)、a(m+1)~ a(n)分别为小李和小王收集选票的作品编号
End Sub
Private Sub Command1_ Click()
Dim iAs Integer， j As Integer， k As Integer， t As String
For i=m+ 1To n-1
For j=n- 1 To i Step-1
If a(k) < a(i) Then t= a(j)： a(j)= a(k)： a(k)=t
Next j
Next i
i= 1
For k=1 To n
If j> n Then
c(k)=a(i)i=i+1
Elself Then
c(k)=a(i)ti=i+ I
Else
c(k)=a()：j=j+ 1
End If
List2. Addtem c(k)
Next k
Text1.Text = "无"
For i= 
If c(i)=c(i+n \ 2) Then
Text1.Text = c(i)： Exit For 'Exit For表示退出循环
End If
Next i
End Sub
编写VB程序，统计接送n个参会者所需的最少车辆数。运行程序，列表框List1中按入住宾馆分组显示所有参会者提交的信息，同一宾馆的按时间先后排列。单击“统计”按钮Command1，在文本框Text1中显示所需的最少车辆数。程序运行界面如图所示。
'n、v、w是常量
'n为参会人数，v为每辆车最多接送人数，w为参会者最长的等待时间，代码略
Private Sub Form_ Load()
'读取n个参会者提交的信息，依次存入a(1)~a(n)
'将a(1)~a(n)接入住宾馆分组，同一宾馆参会者按时间先后排序
'并在List1中显示，代码略
End Sub
Private Sub Commandl_Click()
Dim i As Integerj As Integer, sum As Integer
a(n+1)=" "
j=1： sum = 0
For i-2 To n+ 1
If Mid(a(i), 1, 1)< Mid(a(j),1,1)Then
j=i
End If
Next i
Text1. Text = Str(sum)
End Sub
Function getDif(tsl As String， ts2 As String) As Integer
'返回ts1到ts2的时长(单位：分钟)，代码略
'例如ts1为"08：30"，ts2 为"08：35"，则返回的函数值为5
End Function
Function getCnt(first As Integer, last As Integer) As Integer
Dim s1 As String, s2 As String
Dim iAs Integer, p As Integer, k As Integer,t As Integer
p= first：k= 1
s1 = Mid(a(first), 3, 5)
For i= first+1 To last
s2 = Mid(a(i), 3, 5)
t= getDif(s1, s2)
If Then
k=k+1
p=i
End If
Next i
getCnt= k
End Function
