设为首页收藏本站

开启辅助访问切换到窄版

第一问答网»论坛 › 中问网 › 问答 › VB.NET 计算结果求解！！！

VB.NET 计算结果求解！！！

11 |

1 | 2011-1-3 16:09:39 | 显示全部楼层 |阅读模式

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, n As Integer, x As String

n = 10

x = ""

Do While n0

a = n Mod 2

n = n \ 2

x = Chr(Asc("0") + a) & a

Loop

MsgBox("x=" & x)

End Sub
End Class
试卷答案竟然是 x=1010
求解！！

回复

使用道具举报

千问 | 2011-1-3 16:09:39 | 显示全部楼层

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, n As Integer, x As String
n = 10
x = ""
Do While n0
a = n Mod 2
n = n \ 2
x = a & x
Loop
M

回复

使用道具举报

返回列表发新帖

主题	0 回帖	4882万积分

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行