首页 > 计算机应用技术> VB程序设计

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数

组反序存放，再输出。 Option Base 1 Private Sub Form_Click() Dim a(20) As Integer,i As Integer Dim t As Integer,j As Integer Randomize For i=1 To 20 a(i)=10+Int(90*Rnd) Print a(i)； Next i Print i=1：【】 Do While i＜j t=a(i)：【】：a(i)=t i=i+1：j=j-1 Loop For i=1 To 20 Print a(i)； Next i Print End Sub

答案

查看答案

发布时间：2022-12-04

更多“下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数”相关的问题

第1题

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。

Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【】 Print sum,aver End Sub

点击查看答案

第2题

下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。 Option

Base 1 Private Sub Form_Click() Dim a(10) As Integer，i As Integer Dim max As Integer，max_i As Integer Randomize For i=1 To 10 a(i)=【】 Next i max=a(1)：max_i=1 For i=1 To 10 If【】Then max=a(i) max_i=i End If Next i Print max,max_i End Sub

点击查看答案

第3题

下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件my

file1．Dat中。 Private Sub Form_Click() Dim k As Integer Open【】 Randomize For i=1 To 10 k=100+Int(899*Rnd) 【】 Next i 【】 End Sub

点击查看答案

第4题

下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo

rm_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for Input As 10 do while【】 Ch = Input(1, 10) if【】 then n=n+1 End if Loop【】 Close 10 End Sub

点击查看答案

第5题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有

若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:\file, dat" For Random As 1 Len=Len(【】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【】1, i, stu Next i Close【】 End Sub

点击查看答案

第6题

下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:\a1．txt文件中的所有小写字母。 Pri

vate Sub Form_Click() Dim Ch As String*1 Open"c:\a1．txt"For Input As 10 Do While【】 Ch=Input(1，10) If【】Then Print Ch； End If Loop 【】 End Sub

点击查看答案

第7题

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表

正面，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 TcxtText=n1 TextText=n2 End Sub

点击查看答案

第8题

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的

数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If【】Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【】 Else prime=False End If End Function

点击查看答案

第9题

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，

请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【】As 10 Open "d:\a2.txt" for Output As 20 do while【】 Line Input 10, Ch 【】 Loop Close 10 Close 20 End Sub

点击查看答案

第10题

在窗体中添加一个命令按钮，（其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000

在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【】和【】、【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【】) If a(j)【】5=0 Then【】 Print a(j) Next j Print print k/100 End Sub

点击查看答案

第11题

下列程序实现的功能是：当在窗体上单击时，从键盘上读入5个学生的学号、姓名、英语成绩并存入到文件d

：\stu1.dat中，然后从文件中读出第3个人的学号、姓名和英语成绩并显示在窗体中。 Type student No As Long Name As String * 20 English As Integer End Type Private Sub form_ Click () Dim k As student, i As Integer 【】 Open "d:\stu1. dat" for Random As 10 Len = Reclen for i = 1 To 5 k. No= InputBox(“请输入学号”) k. Name = InputBox (“请输入姓名”) k. English= InputBox (“请输入英语成绩”) 【】 Next i 【】 Print k. No; k. Name; k. English Close 10 End Sub

点击查看答案