VBS练习题

Option Explicit
Dim intA,intB,intC
intA=CInt(InputBox("请输入a:"))
intB=CInt(InputBox("请输入b:"))
intC=CInt(InputBox("请输入c:"))
If intA>intB And intA>intC Then
    MsgBox  "最大值是:"&intA
ElseIf intB>intC Then 
    MsgBox "最大值是:"&intB
Else 
    MsgBox "最大值是:"&intC
End If

Dim a,b,c
a=InputBox("请输入一个字符:")
b=Asc(a)
If b>=48 And b<=57 Then
    c=0
ElseIf b>=65 And b<=90 Then
    c=1
ElseIf b>=97 And b<=122 Then
    c=2
Else 
    c=3
End if

Select Case c
    Case 0
    MsgBox "输入为数字:"&a
    Case 1
    MsgBox "输入为大写字母:"&a
    Case 2
    MsgBox "输入为小写字母:"&a
    Case 3
    MsgBox "输入为其它符号:"&a
End Select

Dim a(4)
For i=0 To 4 
    a(i)=InputBox("请输入第"&i+1&"数字:")
Next
MsgBox "你输入的数字倒序输出为："&a(4)&","&a(3)&","&a(2)&","&a(1)&","&a(0) 

Option Explicit　　
Dim i,j,usernum(9),tempnum
For i=0 To 9 
    usernum(i)=CInt(InputBox("请输入第"&i+1&"个数"))
Next
For i=0 To 8 
  For j=0 To 8-i Step 1
    If usernum(j)>usernum(j+1) Then
        tempnum=usernum(j)
        usernum(j)=usernum(j+1)
        usernum(j+1)=tempnum
    End If
  Next
Next
For i=0 To 9 
    MsgBox(usernum(i))
Next

‘方法二
Dim a(10)
For i=1 To 10 
     a(i)=cint(InputBox("请输入第"&i&"数字:"))
Next
Function change(x,y)
    If x>y Then
         tem=x
         x=y
         y=tem
    End If 
End Function
For i=1 To 10
    For j=1 To 10-i
        change a(j),a(j+1)
    next
Next
MsgBox a(10)&","&a(9)&","&a(8)&","&a(7)&","&a(6)&","&a(5)&","&a(4)&","&a(3)&","&a(2)&","&a(1)

Dim strUsername,strPassword
Do 
strUsername=CStr(InputBox("please input your UserName!","Input Name"))
    If Len(strUsername)<4 or Len(strUsername)>10 Then
        MsgBox "用户名必须是4-10位字符！请重新输入！",48,"用户名输入不正确！"
    Else
        Exit Do
    End If
Loop

x=0
Do 
strPassword=CStr(InputBox("please input the password!","Input password"))
strPassword=LCase(strPassword)
    If strPassword="mercury" Then
        MsgBox "用户"&strUsername&"登陆成功！",48,"登陆成功！"
        Exit Do
      Else
          MsgBox "密码不正确！",48,"密码不正确！"
          x=x+1
          If x=3 Then
              MsgBox "请重新登陆！",48,"请重新登陆！"
              Exit do
          End If    
      End If
Loop 

Option Explicit
On Error Resume Next 

Function getmod(a,b)
    getmod=a Mod b
End Function

Dim c,ua,ub
ua=CInt(InputBox("请输入一个数"))
ub=CInt(InputBox("请再输入一个数"))
c=getmod(ua,ub)
If Err Then       ‘可以自主产生错误 Err.Raise 6
    MsgBox Err.Number &"---"& Err.Description
    Err.Clear
Else
    MsgBox c
End If

Dim strInput,arrg
strIput=InputBox("请输入5个词语，用，分开！")
arrg=Split(strIput,",")
For Each element In arrg
    Randomize 5        ‘初始化随机生成器,后面的值5也可以省略而是用系统的种子
    MsgBox arrg(Int(5*Rnd))  ‘随机输出数组中的元素值
Next

Function Writelog(str)
    Const ForReading=1,ForWriting=2,ForAppending=8
    Dim fso,fil,msg
    ‘ 创建一个文件系统对象（File System Object）
    Set fso = CreateObject("Scripting.FileSystemObject")
    ‘ 创建一个文件对象，通过fso对象来打开指定的文件
    Set fil = fso.OpenTextFile("C:\log.txt",ForAppending)
    fil.WriteLine now &"  "&str
    ‘ 关闭这个文件
    fil.Close
    ‘ 释放这个文件对象
    Set fil = Nothing
    ‘ 释放这个文件系统对象
    Set fso = Nothing
End Function

Writelog "hello lxl"

Option Explicit
Const ForReading=1,ForWriting=2,ForAppending=8
Dim fso,fil,msg
‘ 创建一个文件系统对象（File System Object）
Set fso = CreateObject("Scripting.FileSystemObject")
‘ 创建一个文件对象，通过fso对象来打开指定的文件
Set fil = fso.OpenTextFile("C:\f.txt",ForReading)
‘ 读取文件内容
‘ MsgBox fil.ReadAll  ‘ 一次性全部读取
‘ 判断是否到了文件的最后面
Do While Not fil.AtEndOfLine  ‘注意和AtEndOfLine的区别
    ‘ 只要没到最后，就读取一行，同时把游标向下移动一行
    msg = msg & vbNewLine & fil.ReadLine
Loop
MsgBox msg
‘ 关闭这个文件
fil.Close
‘ 释放这个文件对象
Set fil = Nothing
‘ 释放这个文件系统对象
Set fso = Nothing