①图 本身存在冗余
②为了让压缩后的文件容 无限制的变小
③为了让数据文件更大
④允许有少 的失真
⑤为了让图 文件画质更好
上述说法正确的是( )
图c
Private Sub Command1_Click()
Dim n, i, a, b As Integer Randomize list1.Clear n = i = 0
Do While i < n a = Int(rnd * 100) b = Int(rnd * 100) If b <> 0 Then if then i = i + 1
list1.AddItem Str(i) + "、" + Str(a) + "/" + Str(b) + "="
End If
End If
Loop
End Sub
图3
实现上述功能的 VB 程序代码如下,请回答下列问题。
Private Sub Command1_Click() Dim a, b, c, d, z As Integer d = 0
For a = 1 To 3 'a代表百位
For b = 0 To 3 'b代表十位
For c = 0 To 3
If a <> b And b <> c And c <> a Then ① list1.AddItem str(z) d = d + 1
End If
Next c
Next b Next a
label1.Caption = "共有" + ② + "个数"
End Sub
划线①处应填入的代码为 ;划线②处应填入的代码为