求VB问题
strsql = "select * from name where name=" & Trim(Text1.Text) 'Trim去掉前后空格你这个name在数据库中是字符串的所有必须加上单引号。
'添加一个MSFlexGrid1把
'Do While Not RS.EOF
'XX = XX + 5
'Text5.Text = Text5.Text & RS!T1 & 16 & RS!T2 & vbCrLf
'RS.MoveNext
'Loop
'RS.Close
'这段改为：
With MSFlexGrid1
.FixedCols = 0
.FixedRows = 1
.Cols = 5
.FormatString = "日 期|购买单位|用户单位|联系人|联系电话"
.ColWidth(0) = 2000 '列宽(数值自己修改)
.ColWidth(1) = 2000
.ColWidth(2) = 2000
.ColWidth(3) = 2000
.ColWidth(4) = 2000
Dim i As Integer
Do While Not RS.EOF
XX = XX + 5
i = i + 1
If i >= .Rows Then .Rows = i + 1
.TextMatrix(i, 1) = RS!T1 '不知道你的T1 T2是第几列的值自己修改吧
.TextMatrix(i, 2) = RS!T2
RS.MoveNext
Loop
RS.Close
End With
___________________________________________________________
dim aline() as string'声明数组变量,以放修改过程
dim lefstr() ,rigstr(),lefin(),rigin() as string '声明左右两个字符串变量,以临时放截断行
dim i,n as integer '声明整型变量,以用来计算行数
open "文件的绝对路径" for input as #1' 打开文件
do until eof(1)
i = i +1 '计算行数
line input #1,aline(i)'提取每一行,并放在变量中
aline(i) = right(aline(i),len(aline(i) - 1)'把"S"去掉
aline (i)= "J" & aline(i) ' 把"J"添上去
aline(i) = aline(i) & ",0" ' 在后面加上",0"
lefin(i) = mid(aline(i),8,2) ' 截取左边第三个逗号后两字符
rigin(i) = mid(aline(i),10,2)'截取第四个逗号后两个字符
lefstr(i) = left(aline(i),7)'截取左边第三个逗号前的字符
rigstr(i) = right(aline(i),2)'截取左边第四个逗号后的字符
aline(i) = lefstr(i) & rigin(i) & lefin(i) & rigstr(i)
close #1
loop
_______________________________________________________________
'下面再把修改完成后的内容放回原文件
open "文件的绝对路径" for output as #2
print #2,"Z,A,0,5"
for n = 1 to i
print #2,aline(n)'把上面放在数组中已修改完成的内容存放在文件中
next n
close #2
_______________________________________________________________
此程序是现写的,没有经过测试...在下很愚,有测试不过的地方,您就自己调下吧?不懂不能不能的...
VB顺序问题 求解释
前序遍历是：根左右 中序遍历是：左根右 后序遍历是：左右根 根据后序遍历可知c是根，在结合中序遍历可知此二叉树没有右子树，deba都是在左子树。再根据后序遍历可知e是c的左子树，d是e的左子树，ab是e的右子树，也就是a是b的右子树。c ／ e ／ ＼ d b ＼ a ...
vb求组合问题
这是从10个不同的对象中任意取3个的组合问题：如果只要知道一共有几种，那么根据数学知识可以知道等于：10!\/(3!*7!)其中：3! = 3*2*1，7!=7*6*5*4*3*2*1，10!=10*9*8*7*6*5*4*3*2*1 所以答案为：120 如果要列出这些结果：那么要用递归算法比较好。可以看看我空间里的相关...
VB问题 急···在线等
答案是B 你的疑问可能在于 if not(j mod 2)处 在这里的Not意在取（j mod 2)相反数减1 比如:not(5)为-6 那么not(j mod 2)的值在此始终就为-1和-2 因此if not(j mod 2)在运行时的实际值为if -1或者if -2，那么这个语句的造价语句其实就是if true，所以此语句始终都在执行。那么 ...
关于VB模块的问题
分类: 电脑\/网络 >> 程序设计 >> 其他编程语言 问题描述:在VB中什么时候需要设置模块呢?模块到底是用来干什么的?解析:VB模块也称代码模块:Visual Basic 的代码存储在模块中。模块有三种类型：窗体、标准和类。简单的应用程序可以只有一个窗体，应用程序的所有代码都驻留在窗体模块中。而当应用程序庞大...
VB的常识性问题
完全不是常识性问题:它的意思主要是返回一个 Table 对象，该对象表示添加至文档中的新空白表格。格式:expression.Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)expression 必需。该表达式返回一个 Tables 对象。Range Range 对象，必需。指定表格显示的区域。如果该区域未折叠...
新手问几个vb的数组问题,大神求解
1、数组就来用来保存一个序列的同类型的类型数据。2、你没看到前面的定义？Dim S As long，这个S是一个变量，初始就是0啊。如果是数字，变成1时你又要改，变成2又要改程序，用变量的话可以自动，不用改程序。3、A(S-1)表示最后一个数组的内容，因为是先 S＝S+1，运行到这里再－1的话，...
vb编程的细节问题
1、正确，表示2的二进制数10 2、Boolean 变量存储为 16 位（2 个字节）的数值形式，但只能是 True 或是 False。当转换其他的数值类型为 Boolean 值时，0 会转成 False，而其他的值则变成 True。当转换 Boolean 值为其他的数据类型时，False 成为 0，而 True 成为 -1。所以a=2后结果为true,...
vb题目求详解
一、函数P1有两个参数，第一个是默认寻址（即形参的变化会影响到实参），第二个是寻值（即形参的变化不会影响到实参）。所以，第一次执行P1（a，b）时，b对应的y的改变不会影响b的值；第二次执行P1（b，a）时，a对应的y的改变也不会影响a的值；二、comnand_click() 事件中变量的z，与P1...
关于VB简单判断问题
这里有两个问题要明白：第一个问题是，VB的隐式转换问题。VB会根据使用环境，将变量隐式转换为相应的类型。例如，If Int(Text1.Text) = Text1.Text Then 语句中，Int函数，它的作用是返回参数的整数部分。语法：Int(number)必要的 number 参数是 Double 或任何有效的数值表达式。这个时候VB就隐式将...
vb溢出是什么意思?
要避免VB溢出，我们需要注意以下几点：定义变量时要考虑变量需要保存的数据的大小，尽量不要将数据类型定义过小。在运行程序时，要避免对变量进行过多次数的累加操作，这可能导致变量数据超出范围。要对代码进行充分的测试和调试，这可以帮助我们发现潜在的VB溢出问题，从而对其进行修复。VB溢出可能导致程序崩溃...
佼宏安舒： 是的.Sgn()把正数变成1,负数变成-1 Int() 如果值为负数,则返回小于等于它的负整数 Int(-27.8)值为负数,所以返回-28 Sgn(37.8)值为正数,所以返回1-28+1=-27
城阳区13569752468： 求VB问题答案？
佼宏安舒： 第一个问题用穷举,也就是用三个循环,然后输出符合条件的.第二个问题用Loadpicture函数. 以sub保留字开头的子过程 以function保留字开头的函数过程 以Property保留字开头的属性过程 以event保留字开头的事件过程
城阳区13569752468： 求VB解答 - ？
佼宏安舒： X,Y 是上面函数传的参数X As Single, Y As Single下面话的不是矩形,画的是直线
城阳区13569752468： vb问题解决 - ？
佼宏安舒： Option ExplicitDim x As Single, n As Integer, mianzhi, i As IntegerPrivate Sub Command1_Click()x = Val(Text1)If x <= 0 ThenMsgBox ＂工资总额有问题!＂Exit SubEnd IfFor i = 0 To 12...
城阳区13569752468： vb问题求高手解答 - ？
佼宏安舒： 工具 => VB资源编辑器 => ＂添加自定义资源＂按钮(倒数第二) => 选择你要播放的歌曲 此时 VB资源编辑器 里有一个 ＂CUSTOM＂ 项, 其下有资源 ＂101＂. Dim sTempMp3Path As String '打开时释放临时文件 Private Sub Form_Load() Dim ...
城阳区13569752468： 求教一个十分简单的VB问题! - ？
佼宏安舒： If Len(Dir(＂C:\Program Files\love\lifeng\＂)) = 0 Then MkDir ＂C:\Program Files\love\lifeng\＂
城阳区13569752468： VB 问题 4道 - ？
佼宏安舒： 2.你需要弄清三个函数:左截取函数left(c,n)是从字符串c左侧开始取n个字符.右截取函数right(c,n)是从字符串c串右侧开始取n个字符中截取函数mid(c,n1,n2)是从字符串c左侧第n1个字符开始截取n2个字符.你...
城阳区13569752468： VB问题求各位大神解决 - ？
佼宏安舒： '以下程序段用于求∑n!Private Sub Form_Click() Dim sum As Long, n As Long n = InputBox(＂请输入一个正整数＂) sum = 0 For i = 1 To n'**********SPACE********** sum = sum + mul(i) Next i Print sum End Sub Private Function mul(ByVal x As ...
城阳区13569752468： 一个简单的VB问题 - ？
佼宏安舒： if 89 >= a >= 80 Then要写成if 89 >= a And a>= 80 Then另外,还有一处也要做相应修改
城阳区13569752468： vb问题,急求答案 - ？
佼宏安舒： Private Sub Command1_Click() Dim i% Randomize For i = 1 To 30 Print Int(Rnd * 100 + 1); If i Mod 10 = 0 Then Print Next End Sub Private Sub Command2_Click() Dim i%, n%, m As Boolean n = Val(InputBox(＂输入一个正整数吧!＂)) Print ＂正...
