Private Sub Command1_Click()
Dim i As Integer, n As Integer, dec As Integer
Dim ch As String, s As String
dec=0
For i=1 To Len(s)
ch=Mid(s, i, 1)
If then
n=Asc(ch)-Asc("A")+10
Else
n=Val(Mid(s, i, 1))
End If
dec=dec+n * 16 ^ (Len(s)-i)
Next i
Text2.Text=str(dec)
End Sub
相机类型 | 单反数码相机 |
照片分辨率 | 大:5184×3456 中:3456×2304 小:2592×1728 RAW:5184×3456 |
照片格式 | JPEG,RAW |
存储介质 | sd卡,SDHC卡,SDXG卡 |
RAW是一种没有经过压缩等处理的图像文件格式,其RGB中的每个颜色分量存储需用2个字节,已知该相机存储最大分辨率的JPEG图像的大小为4.3MB左右,则一幅采用RAW格式拍摄的照片需要的存储空间约为JPEG图像的( )