VB 题目 帮帮忙啊

来源:百度知道 编辑:UC知道 时间:2024/05/30 03:08:10
将下列程序补充完整,程序功能是将文本框中输入的十进制数转换成二进制,并说明程序中IF语句的作用
Private Sub Command1_Click()
Dim nk As String
Dim n As Integer
Dim k As Integer
If Command1.Caption = "转换" Then
n = xal(text1.Text)
Do
k = n Mod 2
n = n \ 2
nk =____________________
label1.Caption = nk
Command1.Caption = "再来一次"
Else
label1.Caption = ""
text1.text =
text1.SetFocus
Command1.Caption = "转换"
End If
貌似很简单...但是菜鸟8会做额

Private Sub Command1_Click()
Dim nk As String
Dim n As Integer
Dim k As Integer
If Command1.Caption = "转换" Then '这个地方是判断按钮的状态,如果是“转换”就进行处理,如果不是就清空数据
n = Val(Text1.Text)
Do While n
k = n Mod 2
n = n \ 2
nk = k & nk
Loop
Label1.Caption = nk
Command1.Caption = "再来一次"
Else
Label1.Caption = ""
Text1.Text = ""
Text1.SetFocus
Command1.Caption = "转换"
End If
End Sub

看不明白!

k & nk