修改时间:2021-05-20 浏览次数:135 类型:月考试卷
Dim i As Integer, sum As Integer, a(0 To 7) As Integer
Dim s As String , ch As String , num As String
s="2-3-4-5-6-7-0"
sum=1:num=""
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch>="0" And ch<="9" Then
num=num+ch
Else
sum=sum*Val(num)
a(Val(num))=Val(num)
End If
Next i
Text1.Text=Str(sum)
执行该程序段后,下列说法正确的是( )
图a
请回答下列问题:
图b
①以“类别”进行筛选,选择的值为“在线视频”
②以“10月覆盖人数(万人)”进行筛选,选择“10个最大的值”并设置最大的1项
③以“类别”为关键字(按字母排序)升序排序
④以“类别”为关键字(按笔画排序)升序排序
⑤以“10月覆盖人数(万人)”为主要关键字降序排序
⑥以“10月覆盖人数(万人)”为主要关键字升序排序
则下列选项中的步骤组合(按顺序)可以实现上述功能的是 (多选,填字母)。
图c
计算机的管理规则如下:
·对于某人需要的物品数量,若仓库有足够的物品,将直接分配给该人。
·若某人需要的物品数量超过了当前的库存量,仓库会拒绝该人的请求。
管理员希望知道有多少人没有顺利取到物品。
现编写VB程序实现对物品的管理,在文本框Text 1中输入物品库存总量,在文本框Text 2中输入每人所需要物品的数量(以逗号分隔),单击“统计”按钮count,在Label 4中显示一天中没有取到物品的人数。程序设计界面如图所示。
Private Sub count_Click()
Dim sum As Integer,num As Integer
Dim cnt As Integer
Dims As String,chAs String,tmp As String
cnt= 0
sum=Val(Text 1.Text)
s=Text 2.Text
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch=","Then
num=Val(tmp)
If num>sum Then
cnt=cnt+ 1
Else
End If
tmp=""
Else
End If
Next i
Label 4.Caption=Str(cnt)
End Sub
第一排正中间安排1人;第二排正中间安排3人;第三排正中间安排5人……,如此循环,直至班级人数不足以站满一排后结束编排。
三角队形外围一圈的同学对服装有特殊要求,需要进行标记(中间的同学用“●”标记,外围的同学用“▲”标记)
编写VB程序,实现队形编排功能:在文本框Text l中输入班级人数,单击“展示队形”按钮Command1后,将班级学生队形显示在列表框List 1中。例如,当班级学生数为54的时候,程序运行界面如图所示。
Private Sub Command 1_Click( )
Dim i As Integer,j As Integer
Dim cnt As Integer,nAs Integer,tmp As Integer
Dim kw As String,zw As String,c As String
List 1.Clear
cnt=Val(Text 1.Text)
n=0:tmp= 1
Do While ‘计算三角队形的行数
cnt=cnt-tmp
tmp=tmp+ 2
n=n+1
Loop
For i=1 T on
kw="":zw=""
For j=i T on-1
kw=kw+" "
Next j
If i=n The nc="▲" Else c="●"
For j= 1 To 2*(i-1)-1
zw=zw+c
Next j
IfThen
ZW="▲"
Else
zw="▲"+zw+"▲"
End If
List 1.Add Item
Next i
End Sub
Private Sub Command1_Click( )
Dims As String,ch As String
Dim i As Integer,t As Integer
Dim ans As Long,px As Long
s=Text1.Text
ans=0:t=0:px= 1
For i=1 To Len(s)
ch=Mid(s,i,1)
IfThen
t=t*10+Val(ch)
Else
px=px*t
If ch= "_" Then
px=-1
End If
t=0
End If
Next i
Label 1.Caption=Str(ans+)
End Sub
试题篮