2013新东方刘一男考研词汇5500讲义(整理打印版)

大阿胖 · 发表于 12-9-16 00:16:08

谢谢分享

elfmagician · 发表于 12-9-16 14:43:17

多谢楼主了哈

astrofly · 发表于 12-9-16 23:28:13

Thanks for your kindness

青朴 · 发表于 12-9-16 23:31:37

thank u very much

蜜卡儿 · 发表于 12-9-17 15:33:08

谢谢分享啊

final、坏 · 发表于 12-9-17 19:51:05

没有看下下来看看不过谢谢楼主了

lqf23 · 发表于 12-9-20 00:26:09

感谢楼主分享。。。

陆压郎 · 发表于 12-9-21 03:51:24

谢谢楼主，用IE就可以下了。

雨洗 · 发表于 12-9-21 07:49:53

谢谢楼主。。

雨洗 · 发表于 12-9-21 07:57:29

在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个命令按钮、三个标签和三个文本框，均使用默认名称。程序的功能如下：
①如果单击"读数据"命令按钮，则将考生文件夹下in5.dat文件中两组已按升序方式排列的数(每组30个数)分别读入数组A和B，并分别在Text1、Text2中显示；
②如果单击"合并"命令按钮，则将A、B两个数组合并为另一个按从小到大排列的数组C，并将合并后数组C中的数据显示在Text3中。窗体中给出了所有控件(如图所示)以及"读数据"命令按钮的Click事件过程，请完善"合并"命令按钮的Click事件过程，使其实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行合并操作，且必须通过窗体右上角的"关闭"按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
Private Sub Command2_Click()
'考生编写程序开始
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
c(1) = a(1)
For i = 2 To 30
      c(i) = a(i)
Next
c(31) = b(1)
For j = 32 To 60
      c(j) = b(j - 30)
Next
For i = 1 To 60
      f = True
      For j = 1 To 59
         If c(j) > c(j + 1) Then
            t = c(j)
            c(j) = c(j + 1)
            c(j + 1) = t
            f = False
         End If
      Next
      If f Then
         Exit For
      End If
Next

		自动登录	找回密码
密码			注册