下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的datA.txt文件中。请填空。Private Sub Command1_Click()Dim a As IntegerOpen【 】For Output As 100RandomizeFor i =1 To 10a=100+Int(899*RnD) 【 】Next iClose 100End Sub

题目

下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的datA.txt文件中。请填空。

Private Sub Command1_Click()

Dim a As Integer

Open【 】For Output As 100

Randomize

For i =1 To 10

a=100+Int(899*RnD) 【 】

Next i

Close 100

End Sub

相似考题

1.在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：Private Sub Command1_Click（）CommonDialog1.______="打开文件"CommonDialog1.Filter="All Files（*.*）|*.*"CommonDialog1.InitDir="c:\"CommonDialog1.ShowOpenEnd Sub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files（*.*）”，并显示C盘根目录下的所有文件，请填空。

2.在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写：程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组C。单击“找最大值”按钮时，凋用find过程分别找出a、C数且中元素的最大值，并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序，实现程序的功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调用通过后，各命令按钮的事件过程必须至少各执行一次。

3.单击命令按钮时，下列程序段的执行结果为（ ）。A.8B.6C.4D.2

4.（ 10 ） 在窗体上画 1 个命令按钮和 1 个通用对话框 ， 其名称分别为 Command1 和 CommonDialog1 ， 然后编写下列事件过程：Private Sub Command1_Click( )CommonDialog1. 【 12 】 =" 打开文件 "CommonDialog1.Filter="All Files(*.*)|*.*"CommonDialog1.InitDir="C :\ "CommonDialog1.ShowOpenEnd Sub该程序的功能是 ： 程序运行后 ， 单击命令按钮 ， 将显示 “ 打开 ” 文件对话框 ， 其标题是 “ 打开文件 ” ，在 “ 文件类型 ” 栏内显示 “ AIl Files(*.*) ” ，并显示 C 盘根目录下的所有文件，请填空。

更多“下列程序段的功能是,单击命令按钮后,将随机产生10个三位数,并将这些数写到C盘根目录下的datA.txt ”相关问题

  • 第1题：

    以下程序需要实现的功能是：在C盘根目录下建立一个名为Students.txt的顺序文件。单击命令按钮后，输入4个学生的个人信息，包括name、sex和age，将这些信息写入文件中。请填空。

    Private Sub Form_Click()

    Open【 】For Output As 1

    For i=1 To 4

    name=InputBox("姓名")

    age=InputBox("年龄")

    sex=InputBox("性别")

    Write【 】

    Next i

    Close 1

    End Sub


    正确答案：C:\Students.txt #1nameagesex
    C:\Students.txt , #1，name，age，sex 解析：Open语句的格式为：Open文件名[For文件模式][Access存取方式][锁定]As[#]文件号[Len=记录长度)。因此第一个空填文件的路径与文件名。使用Write将数据写入文件内，其格式为Write#1，A，B,...，即把变量A、B等的值写入文件号为1的文件内。

  • 第2题：

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

    程序运行后，单击命令按钮，将产生l00个1000以内的随机整数，放入数组aft中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。


    正确答案：
    1000arr(i)>Maxarr(i)<Min【解析】本题考查VBA中程序设计的知识。对于这个问题，首先要产生l00个1000以内的随机整数，放入数组an"中，由于Rnd函数可以产生0～l之间的随机数，所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值，然后在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值还大，则让这个数组元素成为新的最大值：如果比当前的最小值还小，则让这个数组元素成为新的最小值，接着继续比较直至数组元素都比较一遍为止。

  • 第3题：

    如果把命令按钮的Cancel属性设置为True，则程序运行后_________。

    A．按Esc键与单击该命令按钮的作用相同

    B．按回车键与单击该命令按钮的作用相同

    C．按Esc键将停止程序的运行

    D．按回车键将中断程序的运行


    按Esc键与单击该命令按钮的作用相同

  • 第4题：

    下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 "Welcome Home"中的字符全部大写输出，其后字符"Wel Back"全部小写输出。请填空。

    Private Sub Command1_Click()

    a = "Welcome Home";

    b = "Wel Back"

    c = 【 】+ LCase(B) Print c

    End Sub


    正确答案：UCase
    UCase 解析：字符串转换函数UCase的作用是字符串中所有小写字母改成大写。字符串转换函数LCase的作用是字符串中所有大写字母改成小写。

  • 第5题：

    设有下列程序，请指出单击命令按钮Comd1后程序完成的功能。
    在图片框Pic1中以其中心为圆心，分别以100，150，200，...，500为半径绘制同心圆，然后将绘制的图形以文件名“MYPIC.BMP”存入磁盘。
    略

相关内容