浙江省杭州市2015年高考信息技术模拟卷3

   uname = Text1.Text          '输入用户名                 

   psd = Text2.Text            '输入密码

   vcode = Val(Text3.Text)     '输入验证码 

   If vcode <> Val(Label3.Caption) Then      

   MsgBox “ ”       ' Label3显示的是随机验证码

   ElseIf uname <> "admin" Or psd <> "123456" Then

   MsgBox “ ”

   Else

   MsgBox “ ”

   方框中正确的语句是（   ）。

   已获取的素材文件有wz.jpg、bj.mp3、jj.doc、hy.swf，则表中的①②③④位置应填入的文件依次为（   ）

图A

图B

Private Sub Command1_Click()

Dim I  as integer

    For  i=1  to 10  step 2

    If  i>=5  then

    List1.additem str(i-3)

    Else

    List1.additem str(i)

Next i

End Sub

Private Sub Command1_Click()

    Timer1.Enabled =      ①    

End Sub

Private Sub Timer1_Timer()                 

    sec = Val(Text2.Text)

    min = Val(Text1.Text)

If sec> 0 Then

    sec = sec - 1

Else

    sec = 59                           

If min > 0 Then                            

    min = min - 1

Else

   Text1 = 0

   Text2 = 0

MsgBox "倒计时时间到"

End If

End If

Text1 = min

Text2 = sec

End Sub

    第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；

    第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边;

    第三步：求出x被除16的商x1;

    第四步：对x1重复（1）、（2）、（3）过程，直至商为0；

    第五步：最后的S即为所求的十六进制数；

下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数制，单击“十进制转十六进制按钮”（Command1）后，在文本框Text2中输出转换的结果。 相应的Visual Basic程序如下：

Private Sub Command1_Click()

  Dim s As String, r As Integer

  dec = val(Text1.Text)                  ’dec得到一个十进制整数，例如：255；

  base = 16                               ’base表示16

     s = ""                                ’s变量存放要转换到的十六进制整数；

     Do While dec <> 0

          r =        ①   

          If r >= 10 Then                     ’如果base>10进制，r可能>10；

             s = Chr(65 + (r - 10)) + s   ’Chr (65)="A", 16进制数A对应10；