给新手出一些题目做做!

莺歌燕舞

还没有开始做呢都被别人给做了

netegg

如果没记错的话，好像可以通过建立js对象直接登录

莺歌燕舞

Gmail邮箱

#include <IE.au3>
dim $a="用户名",$b="密码"
$aIE = _IECreate ("http://www.gmail.com")
if $aIE Then Send("{ENTER}")
$aForm = _IEFormGetObjByName ($aIE, "gaia_loginform")
$ming = _IEFormElementGetObjByName ($aForm, "Email")
$mima = _IEFormElementGetObjByName ($aForm, "Passwd")
$an = _IEFormElementGetObjByName ($aForm, "signIn")
_IEFormElementSetValue ($ming, $a,0)
_IEFormElementSetValue ($mima, $b)
_IEAction ($an, "click")
Sleep(8)
Send("{ENTER}")

kn007

不能使用send函数，另外用其它办法试试

pcbar

找了几个vb习题，有兴趣的新手可以试试：

1. 在文本框Text1中输入一串字符，统计其中字母（不区分大小写），数字和其他字符的个数。
2. 输出N个素数。
3. 随机产生20个200～400之间的随机整数，按每行4个输出，并求出其中的最大值。
4. 随机产生10个数存入数组中，用选择排序法对其从小到大的顺序排序。
5.输入一个整数，判断该数是否是回文数。
6. 输入一个整数，判断该数是否是水仙花数（所谓水仙花数是指一个三位数，它的个位、十位、百位数字的立方和恰巧等于这个数本身。例如：153=1^3+5^3+3^3）
7. 分别输入年份以及月份，输出该月所对应的天数（注意闰年问题）。
8.建立一个登录窗口,要求输入密码。设定密码为“abcdefg”;若密码正确,显示“祝贺你,成功登录!”;若密码不正确,显示“对不起,密码错误,无法登录!”，并统计次数，当输入超过3次时，则退出系统。
9．求任意正整数 n 的阶乘。（N！=1*2*3*……*N）
10.编写程序，输出输出n=7“杨辉三角”,如下图所示（两种显示方法）。
本贴来自ZDNetChina中文社区 http://bbs.zdnet.com.cn ,本贴地址：http://bbs.zdnet.com.cn/forum.php?mod=viewthread&tid=1039098

水木子

找了几个vb习题，有兴趣的新手可以试试：

1. 在文本框Text1中输入一串字符，统计其中字母（不区分大小写），数字和其他字符的个数。
2. 输出N个素数。
3. 随机产生20个200～400之间的随机整数，按每行4个输出 ...
pcbar 发表于 2009-11-6 11:35

哇！大师出题啦！瞧瞧！

水木子

细看了几遍，感觉都好有难度哦！

向前辈致敬！

pusofalse

正好没有事情做，练练手~

; 计算字符出现频率。
Local $sResult, $sText = InputBox("", "字符出现频率"), $sVal

For $i = 1 To StringLen($sText)
        $sVal = StringMid($sText, $i, 1) 
        Assign(".." & $sVal, Eval(".." & $sVal) + 1)
        $sResult = StringReplace($sResult, ".." & $sVal & @TAB & (Eval(".." & $sVal) - 1) & @CRLF, "") & _
        ".." & $sVal & @TAB & Eval(".." & $sVal) & @CRLF
Next
Msgbox(0, '', $sResult)

; 1 - 1000中的素数。
Local $sResult = ""
For $i = 3 To 1000 Step 2
        $iX = 0
        For $j = 3 To 37 Step 2
                If 1 / Mod($i, $j) = "1.#INF" Then $iX += 1
        Next
        If $iX < 2 Then $sResult &= $i & ", "
Next
Msgbox(0, '', "2, " & StringTrimRight($sResult, 2))


; 随机矩阵
Local $iMax, $sResult = "", $iRandom
For $i = 1 To 20
        $iRandom = Random(200, 400, 1)
        $sResult &= $iRandom & ", "
        If Mod($i, 4) = 0 Then $sResult = StringTrimRight($sResult, 2) & @LF
        If $iRandom > $iMax Then $iMax = $iRandom
Next
Msgbox(0, $iMax, $sResult)

; 回文数
Do
        $iFlags = 0
        $sNum = Number(InputBox("", "判断回文数"))
        $iLength = StringLen($sNum)
        If $iLength < 2 OR Mod($iLength, 2) = 0 Then ContinueLoop
        For $i = 1 To Int($iLength / 2)
                If StringMid($sNum, $i, 1) <> StringMid($sNum, $iLength - $i + 1, 1) Then $iFlags = 1
        Next
        If $iFlags = 1 Then ContinueLoop Msgbox(0, "", "NO")
        ExitLoop Msgbox(0, '', "YES")
Until        0

; 水仙花数
Do
        Local $iX = Number(InputBox("", "水仙花数")), $iY = 0
        If StringLen($iX) <> 3 Then ContinueLoop
        For $i = 1 To 3
                $iY += Number(StringMid($iX, $i, 1)) ^ 3
        Next
        If $iY = $iX Then ExitLoop Msgbox(0, $iY, "YES")
        Msgbox(0, $iY, "NO")
Until        0

; 阶乘
Local $iX = 7, $iY = 1
For $i = 1 To $iX
        $iY *= $i
Next
Msgbox(0, '', $iY)

pcbar

23# pusofalse


你算高手了吧

pcbar

23# pusofalse

第一题能不能写的易读一点啊，只要求出字母的个数，数字的个数，其它字符的个数
第二题求的是素数/质数
第三题没有将最大的数列出，或排在第一位。
5，6，9题死循环，不合适吧
不及格

pusofalse

Re 25#:
第一题看错题意，大脑短路。
第二题大脑严重短路，修改如下：

Local $sResult
For $i = 3 To 1000 Step 2
        $iX = 0
        For $j = 3 To 37 Step 2
                If Mod($i, $j) = 0 Then $iX += 1
        Next
        If $iX < 2 Then $sResult &= $i & ", "
Next
Msgbox(0, "", StringTrimRight($sResult, 2))

第3题的随机数，$iMax就是求得的最大数。
第9题的阶乘，不明白为何是死循环。

pcbar

26# pusofalse


第3题我没看清，正确，
你似乎还没明白什么是质数！
只能被1和其自身整除的数

pusofalse

Re 27#:
算法有误，屏蔽****

pusofalse

Re 27#:
感谢赐教！~

Local $sResult, $iX, $aNum[1] = [2]
For $i = 3 To 1000 Step 2
        $iX = 0
        For $j IN $aNum
                If Mod($i, $j) = 0 Then
                        $iX = 1
                        ExitLoop
                EndIf
        Next
        If $iX = 0 Then
                $sResult &= $i & ", "
                Redim $aNum[Ubound($aNum) + 1]
                $aNum[Ubound($aNum) - 1] = $i
        EndIf
Next
Msgbox(0, Ubound($aNum), "2, " & StringTrimRight($sResult, 2))

pcbar

29# pusofalse


ok