条形码 | 物品名称 | 单位 | 进价 | 入库 | 出库 | 库存 |
6917887800263 | 花生油 | 瓶 | 上浮 | 192 | 25 | 167 |
6959479300330 | 苹果 | 箱 | 下降 | 22 | 0 | 22 |
6940863609702 | 奥利奥 | 包 | 不变 | 12 | 10 | 2 |
6971097940026 | 核桃 | 包 | 上浮 | 128 | 8 | 120 |
以上内码对应的字符可能为( )
下列操作不可行的是( )
s=0:k=0
For i=1 to 7 step 2
If i<=1 then
k=k+1
Elseif i<=2 then
k=k+2
Elseif i<=3 then
k=k+3
End if
s=s+k
Next i
该程序段运行后,s值是( )
n=6
k=Val(Text1.Text)
For j=i-1 To n
temp= a(i)
For j=i-1 To ① Step-1
a(j+ 1) = a(j)
Next j
a( ② )= temp
Next i
Const n=5
Dima(1 to n) as integer,c(1 to n) as integer
For i=1 to n
a(i)=int (rnd*10)+1
c(a(i))=c(a(i))+1
Next i
For i=10 to 1 step -1
For j=1 to c(i)
Text1.Text = Text1.Text + Str(i)
Next
Next i
执行以上程序段后,Text1 中显示的值可能是( )
Private Sub Command1 Click)
Const n=9 '总人数
Dim b(1 Ton) As Integer
Dim k As Integer, i As Integer, p As Integer, cnt As Integer, pre. p As Integer
k =Val(Text1. Text)
For i= 1 Ton
b(i)=iModn+1
Next i
p = n:i = 0:cnt=0
Do While i<n
pre_p = p
p= ①
cnt=cnt+1
If cnt=k Then
List1. AddItem Str(p)
b(pre_p) ②
cnt=0
i= i+1
End If
Loop
End Sub