在考生文件夹中有一个工程文件execise32.vbp,相应的窗体文件为execise32.frm。在名为Form1的窗体
本程序不完整,请补充完整,并能正确运行。
要求:
去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
本程序不完整,请补充完整,并能正确运行。
要求:
去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。最后,按原文件名并在原文件夹中保存修改后的文件。
第1题
若s、i均为整型变量,执行下列程序段后s的值为 ______。
s=0
i=1
Do
s=s+i
i=i+1
Loop Until i>5@答案@15@[评析]@本题考查了Do...Loop Until控制语句。每执行一次循环,变量s加一次变量i,随后变量i再加一次1,直到变量5大于5时终止循环。i的初始值为1,故Do循环执行5次。相应的,变量s分别加1、2、3、4、5,故答案为15。
第2题
程序运行后,若单击Show按钮,则执行语句Form1.Print"Show"如果单击窗体,则执行语句Form1.Cls。
注意:
文件必须存放在考生文件夹中, 窗体文件名为execise351frm,工程文件名为 execise35.vbp。
第3题
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:
Private Sub Form_ Lead()
Show
Text1.Text = " "
Text2.Text = " "
Text2.SetFocus
End Sub
Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text + Chr (KeyCode - 4)
End Sub
程序运行后,如果在Text2文本框中输入efghi,则Text1文本框中的内容是______。
第4题
编写如下代码:
Dim Flag As Boolean
Private Sub Form. MouseDown (Button As Integer,
Shift As Integer, X As Single, Y As Single)
Flag = True
End Sub
Private Sub Form. MouseMove (Button As Integer,
Shift As Integer, X As Single, Y As Single)
Flag = False
End Sub
Private Sub Form_ MouseUp (Button As Integer,
Shift As Integer, X As Single, Y As Single)
If Flag = False Then
Print "DDDD"
End If
End Sub
程序运行后,如果想在窗体上输出DDDD,则应执行的操作为______。
第5题
以下程序段的输出结果是______。
num=0
Whilenum<=2
nam=hum+1
Wend
Printnam
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!