（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/12 19:47:19

（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中
（2）单击输入按钮,弹出一个输入对话框,接收用户输入的任意一个整数
（3）单击插入按钮,将输入的数插入A数组中合适的位置,使其仍保持A数组的升序排列,最后将A数组的内容重新显示在Text1中.代码如下：
Dim a(100) As Integer,num As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in4.dat" For Input As #1
For k = 1 To 60
Input #1,a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
num = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To 60
'If num < a(i) Then
Next i
'For j = 60 To i
'a(j + 1)
Next j
= num
Text1 = ""
'以下程序段将插入后的数组A重新显示在Text1中
'For k = 1 To
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End Sub

Dim a(100) As Integer,num As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in4.dat" For Input As #1
For k = 1 To 60
Input #1,a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
num = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To 60
'If num < a(i) Then exit for
Next i
For j = 60 To i step=-1
a(j + 1) =a(j)
Next j
a(i)= num
Text1 = ""
'以下程序段将插入后的数组A重新显示在Text1中
'For k = 1 To 61
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End Sub
这段程序其实有点问题,它不能实现连续插入数字,只能插入一个数字.

（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中 VB单击Command1,随机生成100个大写英文字母存于数组a中,并显示在Text1中,字母之间用空格隔开 VB编程：单击command1,则随机产生10个0~100之间的数值,将之保存到一维数组中a中,同时显示在text1中. VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显示平均值.怎么写? VB计算,在TEXT1中输入两个数字,单击command1按钮,则在text2中显示总和数和平均值.怎么写? VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和 C语言编程将a[10]数组中10个数分别按升序和降序排列的程序. VB单击命令按钮,则文本框（text1）的英文句子按单词分解到列表框（list1）,帮帮忙把代码补全（问号处）用vb设计一个随即抽取幸运数字的程序,单击"开始"按钮,在文本框中随机产生7为数字,并不断滚动.单击"暂停"按钮,文本框用VFP计算问题在文本框Text1中输入一个正整数N,单击“计算”命令按钮,将计算N内（包括N）所有能被3整除的数之和, vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b) vb编程：随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值