填空题下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。 Function SumF(n As Integer)As Single s = 0 For i=1 To n s= 【12】 Next i SumF=s End Function Private Sub Form_Click() Sum1=SumF(100) Print Print"sum1="； sum1 End Sub
填空题在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load( ) Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift AsInteger) Text2.Text=______ End Sub
填空题若进栈序列为a，b，c，则通过入出栈操作可能得到的a，b，c的不同排列个数为{{U}} 【2】 {{/U}}。
填空题数据库逻辑结构在计算机存储空间中的存放形式称为数据的{{U}} 【2】 {{/U}}。
填空题以下程序的功能是：从键盘任意输入正整数n，并找出大于n的第一个素数。 Private Sub Form_Click() Dim n As Long, j As Long, m As Long Dim flag As Boolean n=InputBox("请输入正整数") Do While Not flag (11) flag=True i=2 Do While i＜n And (12) If n Mod i=0 Then (13) End If i=i+1 Loop Loop Print n End Sub
填空题设有如下程序段：
a$=“BejingShanghai”
b$＝Mid(a$，InStr(a$，“g”)+1)
执行上面的程序段后，变量b$的值为{{U}}【1】 {{/U}}。
填空题在文件对话框中，假定有一个名为"fc．exe"的文件，它位于"d:/pp"目录下，则"FileName"属性
的值为{{U}} 【14】 {{/U}}；FileTifie属性的值为{{U}} 【15】 {{/U}}。
填空题有如下函数过程。 Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer Do While y＜＞0 S=x/y x=y y=S Loop UNC=x End Function 以下事件调用该函数，程序运行结果是 【7】 。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=12 b=2 x=UNC(a，b) Print x End Sub
填空题下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，请填空。
Private Sub Form_Click()
Dim i As Integer
For i=3 To 97 Step 2
If{{U}} 【14】 {{/U}}Then
Print i，i+2
End If
Next i
End Sub
Public Function prime(ByVal n As Integer)As Boolean
Dim i As Integer
For i=2 To n-1
If{{U}} 【15】 {{/U}}Then
Exit For
End If
Next i
If i=n Then
prime=True
Else
prime=False
End If
填空题在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。PrivateSubOption1_Click(IndexAsInteger)SelectCase________Case0a=“宋体”Case1a=“黑体”Case2a=“楷体_GB2312”EndSelectText1.________=aEndSub
填空题编写程序，当按下某个键时，在窗体上分别以十六进制和八进制形式输出该键的KeyCode码。请完善下列程序。 Private Sub Form_KeyDown(Keycode As Integer，Shift AsInteger) Print Chr(Keycode) &"键的十六进制KeyCode码是"； Print ______ Print "八进制KeyCode码是"；Oct(KeyCode) End Sub
填空题以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。
Private Sub Command1_Click()
Dim a As Integer
a=0
Sum a, 1, 5, 2
Print "sum of 3 = "; a
a = 0
Call Sum(a, 1, 3, 5, 7, 9)
Print "sum of 5 = "; a
End Sub
Private Sub Sum(x As integer,{{U}} 【3】 {{/U}}
Dim y As Variant
For{{U}} 【4】 {{/U}}
x = x + y
Next y
End Sub
填空题在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是 (5) 框。
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：
Dim PaintStart As Boolean
编写如下事件过程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single)
PaintStart=True
End Sub
Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
If PaintStart Then
PSet(X，Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)
End Sub
Private Sub Form_DblClick()
Cls
End Sub
填空题在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示“打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click() CommonDialog1. Filter= 【14】 CommonDialog1. ShowOpen PCSTextBox. Text＝ 【15】 End Sub
填空题在窗体上有一个名为Image1的图像框，现在要把“D：”盘根目录下的图片文件“Fox．bmp”在其中显示出来，使用的语句是 【7】 。
填空题已知在窗体上有一个文本框控件，它的名称为Text1，且输入的字符全部为数字，现在要把该字符转换为整数送给整型变量C，所用到的语句是 【7】 。
填空题阅读程序：
Option Base 1
Dim arr2() As Integer
Prtvate Function FindMax(a()As Integer)As Integer
Dim Start As Integer
Dim FlnlSh As Integer, i As Integer
Start=LBound{{U}} 【10】 {{/U}}
Finish：UBound{{U}} 【11】 {{/U}}
Max＝{{U}} 【12】 {{/U}}
For i=Start To Pinlsh
If a (i)＞Max Then Max={{U}} 【13】 {{/U}}
Next i
FindMax=Max
End Function
Private Sub Commandl_Click()
Dim arr1
arrl=Atray(12，435，76，24，78，54，866，43)
b=UBound(arrl)
Renm arr2({{U}} 【14】 {{/U}})As Integer
For i=1 TO b
arr2(i)＝CInt({{U}} 【15】 {{/U}})
Next i
M=FindMax(arr2())
Print"最大值是："：M
End Sub
以上程序的功能是x在命令按钮事件过程中定义一个数组，把这个数组作为参数传送到通用过程PindMax，并返回该数组的最大值。请填空。
填空题在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load()
Show
Text1．Text=" "
Text2．Text=" "
Text1．SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Text2．Text={{U}} 【11】 {{/U}}
End Sub
填空题在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按＜Enter＞键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如下图所示：如果存在，则在Label2中给出提示“输入项已在组合框中”。请将程序补充完整。PrivateSubCombol_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombol.ListCount-1IfCombol.Text=【2】ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combol.【3】Combol.TextEndIfEndSub