更多"当前是一个已设计好的窗体文档，请在姓名窗体处键入“王五”，性别为男，然"的相关试题:
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～200范围内能被3整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程代码。
要求：请勿改动程序中的任何内容，只在Function Fun（ ）和End Function之间填入若干语句。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Sub SaveData（ ）
Open App.Path & "/" & "outtxt.txt" For Output As #1
Print #1.Text1.Text
Close #1
End Sub
Function Fun（ ）
’考生应编写的程序
End Function
Private Sub Command1_Click（ ）
d=Fun（ ）
Text1.Text=d
SaveData
End Sub
[多项选择]在考生文件夹下有一个工程文件sjt4. vbp，相应的窗体文件为sjt4. fm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出1～1000范围内能被7整除或被5整除的整数的个数，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算能被7整除或能被5整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun（ ）和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
[多项选择]在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun（ ）和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
[多项选择]在考生文件夹下有一个工程文件sjr4.vbp，相应的窗体文件为sjr4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～200范围内能被3整除的所有整数的和，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun( )和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
[简答题]注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.txt文件。
[简答题]在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。
要求：请在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Dim stepy As Integer ’纵向移动增量
Dim stepx As Integer ’横向移动增量
Const LEFT_BUTTON=1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer
radius=Shape1.Width/2 ’圆的半径
If Button=LEFT_BUTTON Then
x0=Shape1.Left+radius ’圆心的x坐标
y0=Shape1.Top+radius ’圆心的y坐标
If x=x0 Then
stepy=Sgn(y-y0)*50
stepx= (1)
Else
a=(y-y0)/(x-x0) ’斜率
stepx=Sgn(x-y0)*50
(2) =a * stepx
If Abs(stepy)＞Abs(stepx) Then
stepy=Sgn(y-y0)*50
stepx=stepy/a
End If
End If
(3) =True
Else
(4) =False
End If
End Sub
Private Sub Timer1_Timer（ ）
Shape1.Move Shape1
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生20个0～1000的随机数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮(名称为Command1，标题为“输出平均值”)，即可求出其平均值，并在窗体上显示出来(如图3所示)。这个程序不完整，清把它补充完整，并能正确运行。
[*]
要求：在程序中的横线处填写正确的内容，使其实现上述功能，但不能修改程序的其他部分，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Option Base 1
Private Sub Command1_Click（ ）
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer, i
Randomize
For i=1 To 20
arrN(i)=Int(Rnd* (1) )
Next i
Sum= (2)
For i=1 To 20
Sum= (3)
Next i
Aver= (4)
Print Aver
End Sub
[简答题]在考生文件夹中有工程文件Sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有“”号的地方填入正确内容，然后删除“”及所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下。
在窗体上有一个列表框，名称为Ljst1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图11-10所示。
[多项选择]在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm，该程序是不完整的，请在有“”的地方填入正确内容，然后删除“”及代码前的所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个Text文本框控件，名称为Text1，一个Label标签，名称为Label1，两个命令按钮，名称为Command1，标题为“读入文件”。要求程序运行后，单击Command1将in.txt的内容显示到Text1中，并统计Text1中有多少个字符，将结果显示在Label1中。程序运行界面如左下图所示。
[简答题]考生文件夹下存在一个数据库文件“samp3．mdb”，里面已经设计好表对象“tTeacher”、窗体对象“frest”、报表对象“rqeacher”和宏对象“m1”。
试在此基础上按照以下要求补充窗体设计和报表设计：(1)将报表对象rTeacher的报表主体节区中名为“性别”的文本框显示内容设置为“性别”字段值，并将文本框名称更名为“tSex”。
[简答题]在考生文件夹下存在一个数据库文件samp3.mdb，里面已经设计好表对象tEmp、窗体对象fEmp、报表对象rEmp及宏对象mgmp，试在此基础上按照以下要求补充设计。
将报表rEmp的报表页眉区域内名为bTifle标签控件的标题显示为“职工基本信息表”，同时将其安排在距上边0.5cm、距左侧5cm的位置。
[简答题]
考生文件夹下有一个数据库文件“samp3.mdb”，其中存在已经设计好的窗体对象“tTest”及宏对象“ml”。请在此基础上按照以下要求补充窗体设计。
将窗体标题设置为"测试窗体"。
