Imports System.ThreadingModule Module1 Sub Main() Dim int_array(9) As Integer Dim rnd As New Random '填充数组元素 For i As Integer = 0 To int_array.Length - 1 int_array(i) = rnd.Next(0, 100) Console.Writ…
在PowerDesigner使用脚本批量导入excel中记录的表结构信息,由于需要通过powerdesigner逆向工程创建一些sybase IQ的表,由于是接口数据,只有excel表,手动导入太耗时了(几十张),所以百度了一下批量导入execl的方法,发现可以执行vb脚本来读excel表格,从而批量生成表结构图. 这是EXCEL格式: Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Not…