Function F（a As Integer) b = 2 Static c As Int

表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。Private Sub Command1_Click() Randomize n = CInt(Text1.Text) n1 = 0 n2 = 0 For i = 1To r = Int(Rnd*2) If r = ____Then n1 = n1+1 Else n2 = n2+1 End If Next Text2.text = n2 Text2.text = n2 End Sub

在窗体中添加一个命令按钮，编写如下程序代码：

在InputBox对话框中输入Hello，运行结果为：______。

下面出现的“考生文件夹”均为c:\wexam\25160001。

在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在名称为Form1的窗体上有一个文本框，名称为Text1，MuitiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”，如图4-6所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中(数组下界为1)：如果单击“排序显示保存”按钮，则对这100个整数按从小到大进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件“result.txt”中(在程序中的标准模块prog.bas过程可以把指定个数的数组元素存入result.txt文件)。

注意：文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp，排序结果存入 result.txt文件，否则没有成绩。

在窗体上画一个名为Commandl的命令按钮，然后编写如下程序：

Private Sub Conunandl_Click()

Dim i As Integer

Sum=0

n=InputBox(”晰a number”)

n=Val(n)

For i=1 T0 n

Sum=【 】

Nexti

print Sum

End Sub

Function fun(t As Integer)As Long

P=1

For i=1 To t

P=P*i

Next i

【 】

End Function

以上程序的功能是，计算1 1+2 1+3 1+…+n!，其中n从键盘输入，请填空。

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下代码：

Option Babe 1

Private Sub Commandl_Click()

Dim Arr

Art=Array(43，68，-25，65，-78，12，-79，43，-94，72)

pos*0

neg=0

For k=1 To 10

IfArt(k)>0 Then

【 】

Else

【 】

End If

Next k

Print pos，neg

End Sub

以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

钮，Form1窗体消失，显示Form2窗体，程序如下，请填空。

Private Sub Command1_Click()

Form1.Hide

Form2.______

End Sub

已知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在【 】和【 】处填处所需的内容,使产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:

1 2 3 4

1 2 3 4

1 2 3 4

1 2 3 4

1 1 1 1

2 2 2 2

3 3 3 3

4 4 4 4

Private Sub Command1_Click

Dim a(4,4)

For k=1 To 4

For j=1 To 4

a(k,j)=j

Print a(k,j);

Next

Print

Next

For k=2 To 4

For j=1 To【 】

t=a(j,k)

a(j,k)=【 】

a(k,j)=t

Next

Next

For k=1 To 4

Print a(k,1); a(k,2);a(k,3);a(k,4)

Next

End Sub

以下语句的输出结果是______。

Print Int(12345.6789*100+0.5)/100

以下程序用于求s=1+(1+2)+(1+2+3)+……(1+2+……100)的和，请补充完该程序。

Dim n As Integer

Dim i As Integer

Dim j As Long

Dim s As Long

n=100

j=0

s=0

For i=1 To【 】

J=【 】

s=【 】

Next i

Print s