.NET自由天空 - 

1.熟悉system.io名称空间中各种亚类的使用，对照File类、Fileinfo类与Directory类、Directoryinfo类的不同使用方法。
2.练习下列操作：
步骤1：创建新项目
步骤2：从[工具箱]中拖出一个TextBox控件、一个Button控件，设置TextBox的name属性为txtfile,Multiline属性为True; Button的text属性为“ 读取"；一个label控件
步骤3：填写如下代码：
function getiniinfo(inifile) then
if not file.exists(inifile) …

[ 完整阅读 ]

Module Module1

Sub Main()
Dim a, b As Integer '声明两个整形变量
a = Console.ReadLine() '定义a为实际消费
If a < 1000 Then '利用if条件句定义折扣情况
b = a
ElseIf 1000 < a < 2000 Then
b = a * 0.95
ElseIf 2000 < a < 3000 Then
b = a * 0.9
ElseIf 3000 < a < 5000 Then
b = a * 0.85
ElseIf a > 5000 Then
b = a * 0.8
End If
Console.WriteLine(b) '输出打折消费额
…

[ 完整阅读 ]

1.熟悉下列String类的属性和方法
s.chars(i)
s.copy(i)
s.EndsWith("a")
s.Equals(s1）
s.Indexof("a")
s.Insert(i,"a")
s.Length
s.Replace("a","b")
s.spilt("a")
s.startwith("a")
s.SubString(i,j)
s.ToUpper()
s.ToLower()
以字符串“Olympic Game"为例子
2.熟悉下列字符串处理函数的使用
StrComp(Str1,Str2,[CompareStyle])
…

[ 完整阅读 ]

s.char(i)
s.copy(i)
s.EndsWith("a")
s.Equals(s1）
s.Indexof("a")
s.Insert(i,"a")
s.Length
s.Replace("a","b")
s.spilt("a")
s.startwith("a")
s.SubString(i,j)
s.ToUpper()
s.ToLower()
以字符串“Olympic Game"为例子


[ 完整阅读 ]

代码参考如下：
sub main()
dim i,j as integer
console.writeline(space(25)+"九九成发表")
i=1
do while i<=9
for j=1 to i
console.write(i):console.write("x"):console.write(j)
console.write("=")
console.write(i*j)
if i*j <10
…

[ 完整阅读 ]

Module Module1

Sub Main()
Dim a, b As Integer
b = 0
a = Console.ReadLine
If a < 1000 Then
Console.WriteLine(b)
Console.Read()
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
Console.WriteLine(b)
Console.Read()
ElseIf a >= 2000 And a < 3000 Then
…

[ 完整阅读 ]

商场折扣问题
Sub Main()
Dim a As Integer = Console.ReadLine
Dim b As Integer
If a < 1000 Then
b = a
ElseIf a >= 1000 And a < 2000 Then
b = a * 0.95
ElseIf a >= 2000 And a < 3000 Then
b = a * 0.9
ElseIf a >= 3000 And a < 5000 Then
b = a * 0.85
ElseIf a >= 5000 Then
b = a * 0.8
Console.WriteLine(b)
End If
End Sub
数字游戏
Sub Main()
Dim a As Integer = …

[ 完整阅读 ]

Sub Main()
Dim a As Integer
a= Console.ReadLine
If a Mod 100 = 0 And a Mod 400 = 0 Then

Console.WriteLine("是闰年")
ElseIf a Mod 4 = 0 And a Mod 100<>0 Then
Console.WriteLine("是闰年")

Else
Console.WriteLine("不是闰年")
End If

End Sub

End Module

数字游戏
Sub Main()
Dim a As Integer = Console.ReadLine
If a = 5 Then
Console.WriteLine("对了,继续猜！")
Else : End
End If
Dim b As Integer = Console.ReadLine
If b = 6 Then
Console.WriteLine("对了，再猜！")
Else : End
End If
Dim c As Integer = Console.ReadLine
If c = 7 Then
Console.WriteLine("对了！")
Else : End
End

[ 完整阅读 ]