编程练习题

walker1020

敢于亮出自己的代码也是一种智慧。只要能力有提高，总有一天你会让程序员对你是刮目相看。

dabeixiong

怎么感觉成了51testing老师和同学跟这示范教学了-。-！前两题貌似有人做了？那我来拜上第三题吧。。。版主老师也给指点指点呗~辛苦老师啦~

Option Explicit

'转换数据类型为用户自定义类型，如1234567890123456789，转换成1,234,567,890,123,456,789.00
'传入：待转换的数字
'传出：转换后的格式字符-。-!
Function FormatNum(varNum)
        Dim varFormatNum, arrNum, varInt, varDecimal, varCount
        On Error Resume Next
       
        varFormatNum = varNum
       
        '转换出错提示
        If Err <> 0 Then
                MsgBox "此字符串含有非数字的字符，请重新输入"
                Err.Clear
        End If
       
        '将小数部分和整数部分分隔，分别处理
        arrNum = Split(varFormatNum, ".")
       
        '转换整数部分
        varInt = arrNum(0)
        varInt = ChangeFromLast(varInt)
       
        '转换小数部分
        varDecimal = arrNum(1)
        varDecimal = ChangeFromFirst(varDecimal)
       
        '合并处理结果
        varFormatNum = varInt & "." & varDecimal
        FormatNum = varFormatNum
End Function

'从最后一位开始，按三位逗号分割数字
Function ChangeFromLast(varNum)
        Dim varInt, varResult
        varInt = CStr(varNum)
        If Len(varInt) < 3 Then
                ChangeFromLast = varInt
                Exit function
        End If
        Do
                If varInt < 1000 Then
                        varResult = varInt & "," & varResult
                        Exit Do
                ElseIf IsEmpty(varResult) Then
                        varResult = Right(varInt,3)
                Else
                        varResult = Right(varInt,3) & "," & varResult
                               
                End If
                varInt = Left(varInt, Len(varInt)-3)
        Loop
        ChangeFromLast = varResult
End Function

'从第一位开始，按三位逗号分隔数字
Function ChangeFromFirst(varNum)
        Dim varInt, varResult, varCount
        varInt = CStr(varNum)
        If Len(varInt) <= 2 Then
                For varCount = 0 To 2-Len(varInt)-1
                        varInt = varInt & "0"
                Next
                ChangeFromFirst = varInt
                Exit function
        End If
        Do
                If IsEmpty(varResult) Then
                        varResult = Left(varInt, 3)
                ElseIf varInt < 1000 Then
                        varResult = varResult & "," & Left(varInt, 3)
                        Exit do
                Else
                        varResult = varResult & "," & Left(varInt, 3)
                End If
                varInt = Mid(varInt, 4, Len(varInt))
        Loop
        ChangeFromFirst = varResult
End Function

MsgBox FormatNum("12345.1234")

[ 本帖最后由 dabeixiong 于 2009-8-19 22:50 编辑 ]

dabeixiong

貌似第一题没人做也-。-！不过题目看不太懂，也没有举例，不太确定具体意思。老师指教指教呗~

Option Explicit

'将模式字符串中所有的特殊字符转义
'传入：模式字符串
'传出：转义后的模式字符串
Function TransParten(varParten)
        Dim varResult, arrMetacharacters, varReplaceStr, varFind, varCount
        varResult = CStr(varParten)
        Const vbTextCompare = 1
       
        '特殊字符列表，"\"必须放在数组中最前面
        arrMetacharacters = Array("\","$", "(", ")", "*", "+", ".", "[", "?", "^", "{", "|")
       
        '如果匹配特殊列表中的字符则转义
        For varCount = 0 To UBound(arrMetacharacters)
                If InStr(varResult, arrMetacharacters(varCount)) <> 0 Then
                        varReplaceStr = "\" & arrMetacharacters(varCount)
                        varFind = arrMetacharacters(varCount)
                        varResult = Replace(varResult, varFind, varReplaceStr)
                End If
        Next
       
        TransParten = varResult
End Function

Dim varTest
varTest = "abc\|+.?[]"
varTest = TransParten(varTest)
MsgBox varTest

walker1020

优点：
格式比较规则，有必要的说明。

缺点：
如果varNum = 123，那么QTP 运行到 varDecimal = arrNum(1) 这行代码的时候，可能会出现错误提示：数组超界。

[ 本帖最后由 walker1020 于 2009-8-20 00:24 编辑 ]

walker1020

第一题的意思，简单的说，就是在正则表达式里用到的的所有特殊字符进行转义，也就是在其前面增加一个反斜杠

walker1020

如： 输入abc\|+.?[]  那么经转义后，它变成了 abc\\\|\+\.\?\[]
如果输入abc\[?^de$f  那么经转义后，它变成了abc\\\[\?\^de\$f

[ 本帖最后由 walker1020 于 2009-8-20 00:31 编辑 ]

walker1020

What if varParten is Null?
如果 varParten 是 Null，那么 函数TransParten 还会得到正确的结果吗？ 这尚需验证

[ 本帖最后由 walker1020 于 2009-8-20 00:33 编辑 ]

chenchengo2008

呵呵，题目没看仔细，写的有点赶，继续学习

zjx1001

这个模块满有意思，适合我们

testlab

不符合要求1吧

dabeixiong

受教了~佩服...建议这种帖子隔段时间就来一下...老不写代码还真是手生

xiaoyaoke

建议：写点有实际意义的代码，比如VBS处理XML，处理EXCEL，VBS调用WMI获取指定进程PID，虽然字符串处理比较重要，但也没必要处理来处理去。

关于VBS实际应用，建议可以去看看这个博客，他貌似比较喜欢用VBS： http://huaidan.org/

hsjzfling

处理XML,EXCEL,调用WMI什么的其实也就是翻来覆去那么几句，照着资料熟悉了接口之后往往复制粘贴下自己需要用到的语句就完了，达不到练习编程的目的。 练习编程还是要多锻炼逻辑思维能力。

yaohuangongzuo

顶
有道理

xiaoyaoke

好吧，那我来出些题吧，也是网络上比较通用的，用这些来锻炼逻辑吧
【程序1】
题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？

xiaoyaoke

【程序2】
题目：企业发放的奖金根据利润提成。利润(I)低于或等于10万元时，奖金可提10%；利润高
　　　于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提
　　　成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于
　　　40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于
　　　100万元时，超过100万元的部分按1%提成，从键盘输入当月利润I，求应发放奖金总数？

xiaoyaoke

题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？

xiaoyaoke

【程序4】
题目：输入某年某月某日，判断这一天是这一年的第几天？

xiaoyaoke

【程序5】
题目：输入三个整数x,y,z，请把这三个数由小到大输出。

heqingbluesky

都是C的练习题目