题目

RGB色彩模式是工业界的一种颜色标准是通过对红（R）绿（G）蓝（B）三个颜色通道的变化以及它们相互之间的叠加来得到各种各样的颜色RCB颜色分量的值通常采用十进制数表示，而 Flash软件中颜色值采用十六进制数表示。比如RGB（100，255，10）等价于十六进制颜色码＃64FA，每个RGB颜色分量对应两位十六进制数。小李编写了一个十六进制颜色码转RGB颜色值的转换程序，程序功能如下:程序运行时在文本框Text1中输入一个十六进制颜色码，输入格式为“＃”后面跟6位十六进数（其中字母均为大写）。单击“转换按钮Command1在标签 Label1输出对应的RGB颜色值。程序运行界面如图所示。 实现上述功能的VB程序，如下请回答下列问题。 （1） 程序运行时，在文本框Text1输入“＃C50913”，则标签Label1上显示的内容是。 （2） 请在划线处填入合适的代码。 Private Sub Command1 _Click ( ) Dim i As Integer, y As Integer Dim s As String, ans As string Dim a As String s = Text1. Text a = Mid(s, i, 1) y = 0 For i = 1 To 6     a = Mid (s, i , 1)         ①        If i Mod 2 = 1 Then         y = m     Else            ②          ans = ans + str(y)         If   ③   Then ans = ans + ","         y = 0     End If Next i Label2. Caption = “RGB (“+ ans +”)” End sub Function HtoD(x As String) As Integer    ‘将一位十六进制数转换为十进制数 code = "0123456789ABCDEF” j = 0 Do While j < = 16     j = j +1     If x = Mid(code, j, 1) Then Exit Do Loop         ④         End Function ① ② ③ ④  答案： 【1】RGB(197, 9, 19) 【1】m=HtoD(a)【2】y=y*16+m【3】i<>6或i<6或等价答案【4】HtoD=j-1

查看本题答案和解析