VB实现上下标

Module Module1

    Private suptable As Hashtable
    Private subtable As Hashtable

    Sub Main(ByVal Args() As String)
        implementSubAndSup(Args(0))
    End Sub

    Private Sub implementSubAndSup(ByVal excelName As String)
        If (excelName.Length > 0) Then
            Dim excelApp As Microsoft.Office.Interop.Excel.Application
            Dim excelBook As Microsoft.Office.Interop.Excel.Workbook
            Dim excelsheet As Microsoft.Office.Interop.Excel.Worksheet '定义工作表类

            Try
                excelBook = New Microsoft.Office.Interop.Excel.Workbook()
            Catch ex As Exception

            End Try

            excelApp = CreateObject("Excel.Application")
            excelApp.DisplayAlerts = False
            Try
                excelBook = excelApp.Workbooks.Open(excelName)
            Catch ex As Exception
                '  System.Console.WriteLine("excelBook......." + ex.Message)
            End Try
            excelApp.Visible = False

            Dim m As Integer
            Dim sheetCount As Integer
            Try
                sheetCount = excelBook.Worksheets.Count
            Catch ex As Exception

            End Try

            If (sheetCount > 0) Then
                For m = 1 To sheetCount
                    Try
                        excelsheet = New Microsoft.Office.Interop.Excel.Worksheet()
                    Catch ex As Exception

                    End Try

                    Try
                        excelsheet = excelBook.Worksheets(m)
                        excelsheet.Select()
                    Catch ex As Exception
                        '    System.Console.WriteLi

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专业VB课件这个程序的目的是为了实现得到文本框1中的 数组b 和 内置 数组a 的交集,并以交集元素的个数作为 文本框二 显示可以执行的条件。代码如下: Private Sub Command1_Click() Dim a(0 To 9) As String '定义一个内置的数组 Dim b(0 To 3) As String '文本框中 输入的数组 Dim c() As String '数组a与数组b的交集 Dim m As Byte '定义 数组a的循环变量 Dim n As Byte '定义 数组b的循环变量 Dim i As Byte '定义 交集c的元素数量 a(0) = "01": a(1) = 10: a(2) = 11: a(3) = 35: a(4) = 47: a(5) = 56: a(6) = 67: a(7) = 76: a(8) = 83: a(9) = 99 '给数组a赋值 b(0) = Mid(Text1.Text, 1, 2): b(1) = Mid(Text1.Text, 4, 2): b(2) = Mid(Text1.Text, 7, 3): b(3) = Mid(Text1.Text, 10, 3) '给数组b赋值 For m = 0 To 9 For n = 0 To 3 i = 0 If a(m) = b(n) Then c(i) = a(m): i = i + 1: Exit For End If Next n Next m '循环得到交集 c If UBound(c) + 1 >= 2 Then '获得交集c中元素的个数 Text2.Text = 可以执行 End If End Sub 运行时,当我输入 四个两位 的数据,点击按钮 1 显示提示 下标越界。 请求各位达人帮助,我如何才可以达到自己的目的,最好有完整的代码问题补充: 按照一楼的说法做了,代码如下: Private Sub Command1_Click() Dim a(0 To 9) As String '定义一个内置的数组 Dim b(0 To 3) As String '文本框中 输入的数组 Dim c() As String '数组a与数组b的交集 ReDim Preserve c(i) Dim m As Byte '定义 数组a的循环变量 Dim n As Byte '定义 数组b的循环变量 a(0) = "01": a(1) = 10: a(2) = 11: a(3) = 35: a(4) = 47: a(5) = 56: a(6) = 67: a(7) = 76: a(8) = 83: a(9) = 99 '给数组a赋值 b(0) = Mid(Text1.Text, 1, 2): b(1) = Mid(Text1.Text, 4, 2): b(2) = Mid(Text1.Text, 7, 2): b(3) = Mid(Text1.Text, 10, 2) '给数组b赋值 i = 0 For m = 0 To 9 For n = 0 To 3 If a(m) = b(n) Then ReDim Preserve c(i) c(i) = a(m): i = i + 1: Exit For End If Next n Next m '循环得到交集 c If UBound(c) + 1 >= 2 Then '获得交集c中元素的个数 Text2.Text = "可以执行" End If End Sub
VB程序设计综合复习题 1、叙述Visual Basic的特点。 2、当窗体上有三个文本框和一个命令按钮,若程序运行时,焦点定位在第三个文本框(Text3)处,应对何控件的什么属性进行何种设置? 3、若要对窗体上的三个文本框输入数据,个控件焦点的移动可通过Tab键(系统本身具有的),也可通过回车键,则要对文本框的什么事件编程? 4、当某文本框输入数据后(按了回车键),进行判断认为数据输入错,怎样删除原来数据?怎样使焦点回到文本框重新输入? 5、怎样把关于Command命令按钮的Enabled属性的帮助示例代码复制到你的代码窗口?已知帮助中的代码如下: Private Sub Form_Load() Text1.Text = ”” ‘消除文本框的内容 Command1.Caption = “Save” ‘在按钮上放置标题 End Sub Private Sub Text1_Change() If Text1.Text = “” Then ‘查看文本框是否为空 Command1.Enabled = False ‘使按钮无效 Else Command1.Enabled = True ‘使按钮有效 End If End Sub 6、当运行程序前,对某些控件设置属性值,除了在窗体中直接设置外,还可以通过代码设置,这些代码一般放在什么事件中?例如,程序要将命令按钮定位在窗体的中央,请写出事件过程。 7、在KeyPress事件中,如何取消用户刚键入的字符? 8、静态数组与动态数组的区别是什么?在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗? 9、函数过程和子过程的区别是什么? 10、子过程调用有哪两种形式? 11、什么是形参?什么是实参?什么是值引用?什么地址引用?地址引用时,对应的实参有没有限制? 12、如果要时钟控件每半分钟发生一个Timer事件,则Interval属性应设置为多少? 13、如果在KeyDown事件过程中将KeyCode设置为0,KeyPress的KeyAscii参数会不会受影响?如果输入的对象是文本框,那文本框的内容是否有影响? 14、构造满足下列条件的Open语句。 (1)建立一个新的顺序文件SEQNEW.DAT,供用户写入数据,指定文件号为1。 (2)打开一个老的顺序文件SEQOLD.DAT,用户将从该文件读出数据,指定文件号为2。 (3)打开一个老的顺序文件SEQAPPEND.DAT,用户将在该文件后面添加数据,文件号通过调用FreeFile函数获得。 15、请写出程序代码片段,将磁盘上的两个文件合并。(提示:把它们作为二进制文件打开) 16、PictureBox控件和Image控件有什么区别? 17、Visual Basic可处理哪些格式的图形文件? 18、在程序运行时怎样在图形(像)框中装入或删除图形? 19、简述Printer对象与Printers集合对象的区别。 20、当要在ToolBar控件中添加一个按钮,如何实现? 21、当要修改ToolBar控件某按钮的图像,如何实现? 22、Visual Basic中记录集有几种类型?有
VB6.0实现彩票36选7选号程序,功能:生成14个过滤条件值保存DB,查询指定期的前X期开出的个数,七期随机选号法,统计每个号码出球规律,"随机选下注数据,从选定号码中遍历组合,在选中号码列表中继续筛选等。   程序主窗口中的TAB标签选项卡实属不错,你可把它用在你的应用程序中。   注:统一起见,下标全部从1用起,0下标不用命名中的Sum这里统一为 个数 的意思,Total一般的数值变量,尽量统一使用Long型,因为Long型的取值范围大,而且速度快一些,只是内存多一点。   1000个数   Quick最快,循环只有500多次   Bucket第二,循环只有999次   过滤操作具体执行过程   一个条件一个条件的全部过滤所有   一次一注号码轮流进行一个条件一个条件的过滤,一次一个条件过滤全部,保留下来的进行下一轮过滤,那容错就几乎无法实现了,如果要实现容错机制的话,应该是一注号码要通过全部过滤条件,然后可利用容错,符合条件和容错就保留下来,鉴于保存所有号码的数组是二维的,那么就直接对保存的二维数组进行各个条件过滤,不可能每次用一个一维数组保存,再用这个一维来过滤。用一个一维数组来记录容错情况,也就是符合多少个条件,比如14个条件,设定了容错率为6,那么只要有8个或以上过滤条件符合,就保留下来。放到一个新的二维数组中奇号个数,0-7   参数:二维数组(),存放一注号码,7个   返回值:奇号的个数,一个Variant数组,里面分别是每注的奇数的个数   UBound(Num, 1) 第一维是注数

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值