2005年9月計(jì)算機(jī)等級(jí)考試二級(jí)VB考前密卷[1]5

(25)在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下事件過程：_________。
    Private Sub Command1_Click()
    n=Val(Text1．Text)
    For i=2 TO n
    Forj=2 To Sqr(i)
    If i Mod j=0 Then Exit For
    Next j
    If j>Sqr(i)Then Print i
    Next i
    End Sub
    該事件過程的功能是_________。
    A)輸出n以內(nèi)的奇數(shù)
    B)輸出n以內(nèi)的偶數(shù)
    C)輸出n以內(nèi)的素?cái)?shù)
    D)輸出n以內(nèi)能被j整除的數(shù)
    答案：C
    評(píng)析：素?cái)?shù)只能被1和它本身整除(即不能被大于l且小于它本身的整數(shù)來整除)故要檢查一個(gè)整數(shù)是不是素?cái)?shù)，可以用大于1而小于它的所有整數(shù)來除它，如果可以整除，就不是素?cái)?shù)，否則就是素?cái)?shù)。為了縮短程序運(yùn)行時(shí)間，通常是用所有不小于該整數(shù)的平方根的整數(shù)來除它就可以。在本程序中，用從2開始到小于等于被檢測(cè)整數(shù)平方根的所有整數(shù)來對(duì)被檢測(cè)整數(shù)取模，如果被檢測(cè)整數(shù)可以被其中的某個(gè)整數(shù)整除，則不是素?cái)?shù)。故本程序的功能是輸出n以內(nèi)的素?cái)?shù)。
    (26)在窗體上畫一個(gè)名稱為Text1的文本框，要求文本框只能接收大寫字母的輸入。以下　能實(shí)現(xiàn)該操作的事件過程是_________。
    A)Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < 65 or KeyAscii>90 Then
    MsgBox"請(qǐng)輸入大寫字母"
    KeyAscii=0
    End If
    End Sub
    B)Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
    If KeyCode<65 Or KeyCode > 90 Then
    MsgBox"請(qǐng)輸入大寫字母"
    KeyCode=0
    End If
    End Sub
    C)Private Sub Text1_MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single)
    If Asc(Text1．Text)<65 0r Asc(Text1．Text)>90 Then
    MsgBox"請(qǐng)輸入大寫字母"
    End If
    End Sub
    D)Private Sub Text1 change()
    If Asc(Text1．Text)>64 And Asc(Text1．Text)<91 Then
    MsgBox"請(qǐng)輸入大寫字母"
    End If
    End Sub
    答案：A
    評(píng)析：Asc函數(shù)是將字符轉(zhuǎn)化成ASCII碼值。大寫字母的ASCII碼值為65-90(包括65和90)。KeyDown和KeyUp事件返回的是"鍵"，而KeyPress事件返回的是"字符"的ASCII碼。