求一份VB课后习题解答系统的实习报告，急用~，谢谢_百度知道
求一份VB课后习题解答系统的实习报告，急用~，谢谢
Private Sub PrintFunc()on error goto PrintFunc_ErrDim Ct As ObjectSet ex = CreateObject(&Excel.Application&)'增加工作表ex.Workbooks.Add'输出数据ex.Range(&A1&).Value = &系列1&ex.Range(&A2&).Value = 8'设定表格样式 ex.Range(&A1&, &B8&).Borders.LineStyle = xlContinuousex.Cells(, 1).ColumnWidth = 25ex.Cells(, 2).ColumnWidth = 25。。。。。’插入折线图Set Ct = ex.Worksheets(&sheet1&).ChartObjects.Add(0, 130, 350, 250)。。。。。ex.Visible = 哗耿糕际蕹宦革为宫力True'打印预揽。。。。。。'关闭EXCEL。。。。 如果帮助到您，请记得采纳为满意答案哈，谢谢！祝您生活愉快！
其他类似问题
为您推荐：
实习报告的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁急求VB程序设计，考试的题，这算最简单的，但对它一窍不通呀。请详细写出代码。谢谢啦！_百度知道
急求VB程序设计，考试的题，这算最简单的，但对它一窍不通呀。请详细写出代码。谢谢啦！
并给出必要的注释.代码应适当缩进；可以添加其他功能或修饰。2），如计算e的近似值时要将精度控制在10-9!+3； 用公式计算e的近似值!+……+n：1），至少包含3个数学问题（例如 求1.用户界面友好；）用户可自行选择计算的问题，操作方便!+2.贯彻事件驱动的程序设计思想，功能明确!，以增强程序的可读性，要求，（键盘提示出n的取值范围）防止计算结果溢出设计一个提供计算多项数学问题的程序。3）。4）提供条件控制功能
我有更好的答案
BX：STACK1BEGIN MOV
BX：CODE，AXMOV
RESULT，YMOV
BX：DATA1，2SAR
AH，DS，DATA1MOV
CL，并将结果保存在RESULT中，4CHINT
21HCODE ENDSEND
BEGINZ=((X+Y)*8-X)／4计算Z值，SS?DATA1
ENDSSTACKl
20 DUP（0）STACKl ENDSCODE SEGMENT
这个，貌似不是VB的程序代码啊。？？？
其他类似问题
为您推荐：
vb程序设计的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB的问题 最好是最简单的答案 谢谢_百度知道
VB的问题 最好是最简单的答案 谢谢
在名称为Form1的窗体上画一个名称为HS的水平滚动条，在属性窗口中输入列表项的值。再画一个名称为List1的列表框.1，最大值为100。请编写适当的程序，将水平滚动条的长度改变为所选中的值、 2000，最小值为1，如图2，分别是1000，当选择列表框中的某一项、1500.2所示，使得运行程序时5
提问者采纳
Private&&&&&运行到这里会出错;List1_Click()&&&List1;List1;&&HS的最大值是100.AddItem&&&nbsp.ListIndex)&#39.List(List1;Form_Load()&&HScroll1;&nbsp.Max&&=&&=&1&100&nbsp&#39.AddItem&1000&SubPrivate&List1.Min&&1500&nbsp，你的列表项的值全大于100;=&&&Sub&nbsp.AddItem&HScroll1.Value&&List1;&Sub&&2000End&HScroll1;&nbsp。End&&nbsp，因为我点击的列表项的值大于HS的最大值
提问者评价
其他类似问题
为您推荐：
其他2条回答
价格判断条件，如果 list.value & 100HScroll 的值为100
最大值为100，最小值为1。再画一个名称为List1的列表框，在属性窗口中输入列表项的值，分别是、 2000，如图2.1.2所示。请编写适当的程序，使得运行程序时，当选择列表框中的某一项，将水平滚动条的长度改变为所选中的值。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}