当前位置: 高中信息技术 / 综合题
  • 1. (2019·浙江模拟) 小容想设计一个自己的网页,在配色时发现网页使用的颜色是用十六进制表示的,但她习惯使用了十进制RGB颜色模式,学习了VB应用程序开发后,她想通过程序实现十进制到十六进制的转换。实现如下功能:在文本框Text1中输入RGB颜色的十进制,每个值以逗号结束,单击“转换”按钮Command1,在文本框Text2中显示颜色的十六进制值。运行效果如图所示:

    1. (1) 若要将窗体Form1的标题修改为“颜色转换”,则应修改Form1对象的 属性。
    2. (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. (3) 若黄色是由红色和绿色混合得到,则输入黄色的RGB值,文本框Text2中显示的内容为

微信扫码预览、分享更方便