接种编号 |
疫苗厂家 |
疫苗批号 |
接种日期 |
接种间隔 |
是否需要补种 |
2021 1201 |
北京生物 |
202008092 |
2021.11.12 |
10 |
是 |
2021 1202 |
北京生物 |
202008098 |
2021.12.21 |
15 |
否 |
2021 1203 |
北京生物 |
202008092 |
2021.12.10 |
20 |
否 |
…… |
…… |
…… |
…… |
…… |
…… |
下列关于“已接种人员信息”数据表的描述,正确的是( )
比如有7个选手,他们的等级分别是30,17,26,41,19,38,18,要进行3场比赛。最好的安排是选手2对选手7,选手7对选手5,选手6对选手4。此时等级差的总和等于(18-17)+(19-18)+(41-38)=5达到最小。
窗体form1的运行界面如下图所示,用户在文本框Text1中输入各位选手的等级(以逗号分隔),在文本框Text2中输人要对弈的场数k,单击计算按钮Commmand1,在文本框Text3中显示最小等级差总和。程序运行界面如图所示。
Dim a(0 To 1000) As Integer
Dim b(0 To 1000) As Integer
Private Sub Command1_ Click()
Sum=0
k = Val(Text2. Text)
s =Text1. Text
cnt =1
For i=1 To Len(s)
c=mid(s, i, 1)
If c="," Then cnt=cnt+1 Else
Next i
For i=1 To cnt-1
For j=1 To cnt-i
If Then
t = a(j): a(j) = a(j+ 1): a(j+1)= t
End If
Next j
Next i
'计算出各等级选手之间差值
For i=1To cnt- 1
b(i)=a(i+1)-a(i)
Next i
For i=1 To k
Min=i
If b(j) < b(Min) Then Min = j
Next j
Sum = Sum + b(Min)
Next i
Text3. Text = Str(Sum)
End Sub
张老师想了解每个小方格被多少块地毯覆盖,以便更好地调整地毯铺设位置,他编写了VB程序,实现以下功能:在文本框Text1中输人行数m,在文本框Text2中输入列数n,在Text3中输入每块地毯铺设的坐标x1,y1,x2,y2……坐标之间逗号分隔,地毯数量不超过100),单击计算按钮Commmand1,在列表框List1中显示每个小方格被多少块地毯覆盖。程序运行界面如图所示。
Dim m As Integer
Dim n As Integer
Dim a, b, C, d As Integer
Dim flag(0 To 10000) As Integer
Dim sum(0 To 10000) As Integer
Dim pos(0 To 100) As Integer
Private Sub Command1_Click()
List1. Clear
m = Val(Text1. Text)
n = Val(Text2. Text)
s = Text3. Text
'读取每块地毯坐标,并按顺序存储在pos数组中
'地毯总数量存储在变量k中
For i=1 To k
a= pos(i * 4- 3):b= pos(i * 4- 2):c= pos(i * 4- 1):d= pos(i * 4)
Next i
For i=1 To m
For j=1 To n
sum((i- 1) *n+ j) = sum((i- 1) * n+ j- 1) + flag((i- 1)*n+ j)
s=s+Str(sum((i-1)*n+j))
Next j
List1. AddItem s
Next i
End Sub
Sub add (ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer)
'按行标记地毯铺设情况
For i=x1 To x2
flag((i - 1) * n + y1) = flag((i- 1)*n+y1) + 1
Next i
End Sub