大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
首先执行Sub Main()
站在用户的角度思考问题,与客户深入沟通,找到岳阳县网站设计与岳阳县网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都做网站、成都网站制作、企业官网、英文网站、手机端网站、网站推广、域名申请、虚拟空间、企业邮箱。业务覆盖岳阳县地区。
①定义两个变量a=45 b=18
②将a和b作为sum过程的两个参数x=45(按值传递),y=18(按地址传递,将在过程中改变b的初始值)
③xy满足条件,将 x-y=45-18=27 赋值给x ;将 x+y=27+18=45 赋值给y,此时改变了b值为45.
④输出x的值27 y的值45
⑤输出a的值45 b的值45
在visual studio.net中,你新建一个控制台程程序 然后里面 给你 一个 程序 你粘贴复制 就知道了 呵呵
Module Module1
Sub Main()
Dim x As String, y As Byte '定义变量及其数据类型
x = "007" '为变量x赋初值
y = Convert.ToByte(x) '将字符串型数据转换成字节型值并赋值给变量y
Console.WriteLine("字符串型变量 x(" x ") 被转换成了" "字节型变量 y(" y ") 。") '输出结果到屏幕
Dim i As String = "2012年11月18日" '定义变量i及其数据类型并赋初值
Dim j As Date '定义变量j及其数据类型
j = Convert.ToDateTime(i) '将字符串型数据转换成日期型值并赋值给变量j
Console.WriteLine("字符串型变量 i(" i ") 被转换成了" "日期型变量 j(" j ") 。") '输出结果到屏幕
Console.Read() '读取用户输入的信息
End Sub
End Module
应该定义为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 = FN + SN
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
Sub Main()
Dim a As Boolean = True, b As Boolean = False
Console.WriteLine(LCase("a=" a " b=" b))
Console.WriteLine(LCase("true and false = " (a And b)))
Console.WriteLine(LCase("true and not false = " (a And Not b)))
Console.WriteLine(LCase("true false or false = " ((ab) Or b)))
Console.ReadKey()
End Sub
' VB .NET 控制台应用
Module Module1
Sub Main()
Dim i, a, b, c As Integer
i = 100
Do While i = 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Console.WriteLine(i) '控制台输出部分,可以修改成其他形式输出
End If
i = i + 1
Loop
End Sub
End Module
以下示例一次从文件中读取一行,然后将每行文本打印到控制台。
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub