在名为Form1的窗体上，绘制一个名为Text1的文本框。设置文本框属性，在文本框中显示“文本框”；再建立
.jpg)
注意：
文件必须存放在考生文件夹中，窗体文件名为execise5.frm，工程文件名为exeeise5.vbp。
AI搜题
NEW
搜题
第1题
下列函数过程的作用是计算x和y的最大公约数。请填空。
Private Sub Command1_ Click()
Dim x As Integer, y As Integer, Result As Integer
x = InputBox (“请输入第一个数”)
y = InputBox (“请输入第二个数”)
Result =______
Print x; "和"; y; "的最大公约数为: "; Result
End Sub
Private Function GYS (ByVal A As Integer, ByVal B As Integer)
Dim T As Integer
T = A Mod B
Do While ______
A = B
B = T
T = A Mod B
Loop
______
End Function
第2题
性为2，LargeChange属性为10，Min属性为0，Max属性为100。编写适当的事件过程，使程序运行后，若把滚动框滚到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“××”，其中××是滚动框所在的位置，如下图所示。
.jpg)
注意：
程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。
第4题
后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。
.jpg){kind=spacer}
Private Sub HScolll ______()
If (HScrolll.Value = 50) Then
Textl.Text="适中"
Else
If HScrolll.Value ______Then
Text1.Text = "慢"
Else
Text1.Text = "快"
End If
End If
End Sub
第5题
下事件过程：
Private Sub Command1_ Click()
CommonDialogFlags = cd10FNHideReadOnly
CommonDialogFilter= "All Files (*.*) ｜*.* ｜Text Files" &
"(*.txt ｜*.txt｜Batch Files (*.bat)｜*.bat)"
CommonDialogFilterIndex = 1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ______；如果在对话框中选择D盘temp 目录下的te1.txt 文件，然后单击“确定”按钮，则在信息框中显示的提示信息是______。
第6题
argeChange属性为100，SmailChange属性为2；然后再绘制一个文本框，其名称为Text1，初始内容为空白。编写适当的事件过程，使程序运行后，移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如下图所示。
.jpg)
注意：
不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为execise98.vbp，窗体文件名为execise98.frm。
第7题
Text文本框控件(名称为rtx1)，一个文本框控件(名称为Text1)，两个命令按钮(名称分别为Cmd1和Cmd2，标题分别为“加入92.TXT”和“统计字符个数”)，如下图所示。
.jpg)
要求程序运行后，单击“加入92.TXT按钮将考生文件夹中的92.txt的内容显示到rtx1中；单击“统计字符个数”按钮统计Text1中有多少个字符并将结果显示在Text1中。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
第8题
请编写适当的事件过程，使得程序在运行时，在Text1中输入的任何字符，立即显示在Text2中。
.jpg)
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise7/vbp，窗体文件名为execise7.frm。
第9题
提供了一个通用过程，考生可以直接调用。请在窗体上绘制一个名为 Text1的文本框；绘制一个名为Cmd1、标题为“计算”的命令按钮；再绘制两个单选按钮，名称分别为Opt1和Opt2、标题分别为“求100到500之间能被5整除的数之和”和“求 100到500之间能被9整除的数之和”，如下图所示。
.jpg)
编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
注意：
考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前，必须至少进行一种计算，否则不得分。
第10题
数N，单击命令按钮计算从0到N的所有素数的和，并在Text2中显示出来。运行程序如图7-3所示。
注意：去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
