题目

小容想设计一个自己的网页，在配色时发现网页使用的颜色是用十六进制表示的，但她习惯使用了十进制RGB颜色模式，学习了VB应用程序开发后，她想通过程序实现十进制到十六进制的转换。实现如下功能：在文本框Text1中输入RGB颜色的十进制，每个值以逗号结束，单击“转换”按钮Command1，在文本框Text2中显示颜色的十六进制值。运行效果如图所示： （1） 若要将窗体Form1的标题修改为“颜色转换”，则应修改Form1对象的 属性。 （2） 以下程序段运行时，为了实现上述功能，请在划线处填入合适代码。 Private Sub Command1_Click()   Const st = "0123456789ABCDEF"   Dim s, ch, rs As String   Dim m, r1, r2, n As Integer     For i = 1 To Len(s)     ch = Mid(s,i,1)     If ch > "9" Or ch < "0" Then                 r2 = m Mod 16         rs = rs + Mid(st, r1 + 1, 1) + Mid(st, r2 + 1, 1)         m = 0     Else         m = m * 10 + Val(ch)     End If   Next i   Text2.Text = "#" + rs End Sub （3） 若黄色是由红色和绿色混合得到，则输入黄色的RGB值，文本框Text2中显示的内容为。 答案： 【1】Caption 【1】s=Text1.Text【2】r1=m\16 【1】#FFFF00

查看本题答案和解析