UC知道VB菜鸟编程问题
来源：百度知道 编辑：UC知道 时间：2024/07/06 21:41:19
输入一个十进制的数，利用单选按钮控制，用命令按钮执行转换，分别转换为二进制，十六进制，八进制
设计窗体菜单的子菜单：
要求字体子菜单设计成一个控件数组，用于设计文本框的字体
单击“文字颜色”后，打开“颜色”对话框，用于设置文本框中的文字颜色，单击“背景颜色”后，打开“颜色”对话框，用于设置文本框的背景颜色
“属性”菜单初始状态如图2所示，单击“只读”后可以在该项前面打上对号或取消对号，用于控制文本框是否只读；而单击“隐藏”后将文本框隐藏起来，同时该项名称变为“显示”，再单击“显示”将显示文本框，同时该项名称变为“隐藏”
讲一下过程
设计窗体菜单的子菜单：
要求字体子菜单设计成一个控件数组，用于设计文本框的字体
单击“文字颜色”后，打开“颜色”对话框，用于设置文本框中的文字颜色，单击“背景颜色”后，打开“颜色”对话框，用于设置文本框的背景颜色
“属性”菜单初始状态如图2所示，单击“只读”后可以在该项前面打上对号或取消对号，用于控制文本框是否只读；而单击“隐藏”后将文本框隐藏起来，同时该项名称变为“显示”，再单击“显示”将显示文本框，同时该项名称变为“隐藏”
讲一下过程
Private Sub Command1_Click()
Dim i As Long
i = Val(Text1.Text)
If Option1.Value = True Then '二进制
MsgBox "二进制结果为" & cBin(i)
ElseIf Option2.Value = True Then '十六进制
MsgBox "十六进制结果为：" & Hex(i)
Else
MsgBox "八进制结果为：" & Oct(i)
End If
End Sub
Function cBin(ByVal N As Long) As String
Do
cBin = N Mod 2 & cBin
N = N \ 2
Loop While N > 0
End Function
VERSION 5.00
Begin VB.Form Form1
Caption = "By Pcsun"
ClientHeight = 3045
ClientLeft = 60
ClientTop = 450
ClientWidth = 3870
LinkTopic = "Form1"
ScaleHeight = 3045
ScaleWidth = 3870
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption =