员工号 | 姓名 | 性别 | 职位 | 出生年月 | 电话 | 所属部门 |
GC001 | 王海 | 男 | 主管 | 1986.10. 15 | 13564847008 | 工程部 |
JS002 | 关仁 | 男 | 组长 | 1990.5. 23 | 15564847201 | 技术部 |
SC003 | 孙璐 | 女 | 1993.7.9 | 17564847226 | 市场部 | |
…… | …… | …… | …… | …… | …… | …… |
下列相关描述正确的是( )
Dim s As String, ch As String
Dim i As Integer, cnt As Integer, sum As Integer, num As Integer
Dim ave As Single
s=Text1.Text:num=0:ch="":cnt=0:sum=0
For i =1 To len(s)
ch = Mid(s, i, 1)
If ⑴ Then
cnt=cnt+1
Else
If cnt>0 Then
num=num+1
⑵
⑶
End If
End If
Next i
ave=sum/num
Label1. Caption =“总共有”+ Str(num) +“个单词,平均长度为:”+ Str (ave)
划线处可选代码为:
①sum = sum + cnt
②sum = sum + num
③cnt = 0
④cnt = 1
⑤Not(ch =””Or ch = “.”)
⑥ch>=“a” And ch<=“z” or ch>=“A”And ch<=“Z”
⑴、⑵、⑶处语句分别为( )
请回答下列问题:
图a
图b
编写VB程序,实现上述挑选、组队功能。运行程序,在列表框List1中显示m名身高大于等于175cm的学生信息,且根据体重数值降序排序。单击“组队”按钮,在符合条件的情况下尽可能多的两两组队,并将组队结果显示在列表框List2中。程序运行界面如图所示,实现上述功能的VB程序如下。
请回答下列问题:
Const n = 20
Dim id(1 To 20) As Integer, h(1 To 20) As Integer,w(1 To 20) As Integer
Dim m As Integer
Private Sub Form_Load( )
'从数据库中读取n名学生的编号、身高和体重分别存储在数组id、h和w中。
'代码略。
m=0 '存储身高≥175cm的学生总数
For i=1 To n
k=i
For j=i+1 To n
If h(j) >= 175 Then
If Then k= j '⑶
End If
Next j
If k<>I Then
t = id(i): id(i) = id(k): id(k) = t
t=h(i):h(i)=h(k):h(k)=t
t=w(i):w(i)=w(k):w(k)=t
End If
If h(i) < 175 Then
m=i-1
Exit For '结束挑选
Else
End If
List1.AddItem str(id(i)) +“”+ Str(h(i)) +””+ Str(w(i))
Next i
End Sub
Private Sub Com_Click()
L=1:R=m
Do While L< R
If Then
List2. AddItem Str(id(L)) + “号和”+ Str(id(R)) +“号组队”
L=L+1
R=R-1
Else
End If
Loop
End Sub
为了了解选科预选情况,统计选科组合种类及每种组合人数。小王设计并制作了VB程序。运行该程序,单击“读取”按钮,从数据库中读取信息并显示在列表框List1中;单击“统计”按钮,在列表框List2中显示每种选科组合人数(无人选择的组合不显示)及选科组合种类。程序运行界面如图b所示。
Dim cla(1 To 1000) As Integer ‘班级号
Dim snum(1 To 1000) As String ‘学号
Dim sname(1 To 1000) As String ‘姓名
Dim xinxi(1 To 1000) As String ‘选科信息二进制编号
Dim xknum(1 To 127) As Integer ‘各选科组合人数
Dim n As Integer
Private Sub Command1_Click()
‘从数据库中读取n名学生的班级、学号、姓名和选科信息分别存储在数组cla、snum、sname和xinxi中,并输出在列表框List1中,代码略。
End Sub
Private Sub Command2_ Click ( )
Dim t As Integer, i As Integer, count As Integer
For i=1 To n
t = BtoD(xinxi(i))
Next i
count = 0
For i=127 To 1 Step-1 ‘选科组合十进制编号的范围
If Then
count = count + 1
List2.AddItem change(i) +””+ Str (xknum(i)
End If
Next i
List2. AddItem“选科组合种类共有:”+ Str (count) + “种”
End Sub
Function BtoD(s As String) As Integer ‘将选科信息二进制编号转换为十进制编号
Dim x As Integer, i As Integer
x=0
For i=1 To 7
If Mid(s,i,1) = “1” Then
x=
End If
Next i
BtoD = x
End Function
Function change(c As Integer) As String
‘该函数的功能是将选科十进制编号转换成对应的组合名称,代码略。
End Function