锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net控制台源码 vb控制台程序怎么写

IT技术arr

VB.NET控制台就是这样的老兄 ， 显示完就是闪一下 ， 不会等你看的 。程序流程本来就是这样嘛 。
一般要看的话，都是在下面加一句：
console.read()
这样等到你按回车，才会结束。
VB.net 里下面的代码怎么运行？怎么用控制台？建个控制台工程，把代码粘过去，最后显示的代码放入到Main方法里就可以了 。
采纳哦
如何用vb.net获得网页的源代码Dim url As String=" 网址"
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 获取或设置一个值 ， 该值指示是否与
Internet资源建立持久连接 。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
VB.net编写一个控制台应用程序用来从键盘上输入两个数然后输出这两个数的和差积商应该定义为double或者single，string类好像不能进行运算 。我简单说一下控制台的方法，你要一次性输入和差积商，首先声明两个变量用来储存两个数 ， 然后用算法一次性输出结果就ok 。
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FNSN
Console.WriteLine("它们的和: "ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: "ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: "ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: "ResultNum)
Console.ReadLine()
End Sub
vb.NET webbrowser 修改网页源码Dim c
Private Sub Form_Load()
URL = ""
c = 0
WebBrowser1.Navigate URL
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If c = 1 Then Exit Sub '这个是为了防止这个过程无限执行下去
c = c1
tmp = WebBrowser1.Document.body.innerhtml
tmp = Replace(tmp, "88753967", "好玩吗？")
WebBrowser1.Document.body.innerhtml = tmp
End Sub
vb 十进制转换成 八进制 二进制原码 二进制补码 二进制反码 程序VB.NET控制台程序：
Module module3
Sub Main()
Dim i As Integer
Dim num As Integer = -35
Dim R As Integer = 8
Dim arr(33) As Integer
Dim len As Integer
arr = TransToR(num, R)
len = arr(0)
Console.Write(num" 转换成 "R" 进制后："vbTab)
If (arr(1) = 1) Then
Console.Write("-")
End If
For i = len1 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
arr = TransToSourceCode(num)
Console.Write(num" 转换成32位二进制源码后："vbTab)
Console.Write(arr(1))
For i = 32 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
arr = TransToReverseCode(num)
Console.Write(num" 转换成32位二进制反码后："vbTab)
Console.Write(arr(1))
For i = 32 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
arr = TransToCompensatoryCode(num)
Console.Write(num" 转换成32位二进制补码后："vbTab)
Console.Write(arr(1))
For i = 32 To 2 Step -1
Console.Write(arr(i))
Next
Console.WriteLine()
End Sub
'将十进制数num转换为R(2=R=9)进制数，结果存在arr数组中
'arr(0)存储长度, arr(1)存储符号位：1为负，0为正
Function TransToR(ByVal num As Integer, ByVal R As Integer) As Integer()
Dim arr(33) As Integer
arr(0) = 0'初始长度
'设置符号位
If (num0) Then
arr(1) = 1
Else
arr(1) = 0
End If
num = Math.Abs(num)
While num0
arr(0) = arr(0)1
arr(arr(0)1) = num Mod R
num \= R
End While
Return arr
End Function
'将十进制数num转换为二进制原码
Function TransToSourceCode(ByVal num As Integer) As Integer()
Dim arr(33) As Integer
Dim i As Integer
arr = TransToR(num, 2)
'高位补零
For i = arr(0)2 To 32
arr(i) = 0
Next
【vb.net控制台源码 vb控制台程序怎么写】arr(0) = 32
Return arr
End Function
'将十进制数num转换为二进制反码
Function TransToReverseCode(ByVal num As Integer) As Integer()
Dim arr(33) As Integer
Dim i As Integer
arr = TransToSourceCode(num)
If num = 0 Then
Return arr
End If
'除符号位外各位取反
For i = 2 To 33
arr(i) = 1 - arr(i)
Next
Return arr
End Function
'将十进制数num转换为二进制补码
Function TransToCompensatoryCode(ByVal num As Integer) As Integer()
Dim arr(33) As Integer
Dim i As Integer
Dim c As Integer = 0'进位
arr = TransToReverseCode(num)
If num = 0 Then
Return arr
End If
'末尾加1
i = 2
arr(i)= 1
Do While True
arr(i) = carr(i)
c = arr(i) \ 2
arr(i) = arr(i) Mod 2
i= 1
If c1 Then
Exit Do
End If
Loop
Return arr
End Function
End Module
vb.net控制台源码的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb控制台程序怎么写、vb.net控制台源码的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：sap如何批量删除交货单，sap怎么删除订单

    下一篇：手机蓝牙耳机充电慢怎么办，蓝牙耳机充电慢是什么原因?