commondialog1.canleerror:=true
commondialog1.defaultext="txt"
commondialog1.filename="lbw.txt"
commondialog1.filter="Text files(*.txt)|*.TXT|All Files(*.*)|*.*"
commondialog1.filterindex=1
end sub
Vb问题 求大神指点
Show 是显示窗体 UnLoad 是卸载窗体 Load 是加载窗体 Hide 是隐藏窗体 6、D 身份证 6位地区码+8位出生日期+3位流水+1位校验码 ①身份证位数比较长 ②校验码可能出现X 8、A ①变量名不能包含+ - * \/ ！@ # ￥ ?小数点 等字符，且长度不能超过255 所以 B 是错误的 ②变量必须是以字母...
新手问几个vb的数组问题,大神求解
1、数组就来用来保存一个序列的同类型的类型数据。2、你没看到前面的定义？Dim S As long，这个S是一个变量，初始就是0啊。如果是数字，变成1时你又要改，变成2又要改程序，用变量的话可以自动，不用改程序。3、A(S-1)表示最后一个数组的内容，因为是先 S＝S+1，运行到这里再－1的话，正...
vb循环,这题求大神讲解为什么不满足条件也进去if语句
从这个代码来看，内循环从1到5循环5次，每循环一次a增加1，其中循环变量j不能被3整除的时候a再增加1，而1到5这五个数不能被3整除的是1、2、4、5共4个，这样在内循环中，a总共增加了5+4=9，而外循环从1到3总共循环3次，所以a最终从0增加到3*9=27，所以这道题的答案是27。实际运行的结...
VB大神 求教问题
首先说明三点;（1）启动程序后，Hscroll的值value=1 （2）当在滚动条右端点箭头时，每点一次Hscroll的值value加1 （3）启动程序后，y的初值是2 再来看程序，当点击滚动条右端点箭头时，触发Private SubHScroll1_Change()程序，只有三句：'Dim y As Single '② y = y + f1(HScroll1.Val...
求vb大神来。 这个题咋做。 请编写程序产生10个【10,100】之间的随机整 ...
s = s + 1 Else Me.ForeColor = vbBlack End If Print a Next Print "总共" & s & "个能被3整除." 往Form1上拖一个Command1，双击Command1，把上面的代码复制到Sub Command_Click和End Sub之间，然后运行。
求VB大神帮帮忙,解一下两个编程题!在线等,急!拜托了,谢谢(ฅ>ω<*...
第一题：Dim A As String, B As String, C As Integer, D As StringPrivate Sub Command1_Click()A = ""B = ""C = 0D = ""For i = 1 To 10 Step 1 B = Int((100 - 10 + 1) * Rnd + 10) A = A & "," & B If B Mod 3 = 0 Then C = C + 1...
求助各位大神,这道VB编程题代码该怎么编?
窗体Frm1代码：Public n% '定义公共变量Private Sub Command1_Click() Frm2.ShowEnd SubPublic Sub Command2_Click() Print nEnd Sub窗体Frm2代码：Private Sub Command1_Click() If MsgBox("退出程序吗？", vbYesNo, "提示") = vbYes Then Me.Hide'题目要求只是关闭这个窗体，没说要...
VB求大神帮忙注释
如果x1>x2，那么x1和x2交换 如果x1>x3，那么x1和x3交换 如果x2>x3，那么x2和x3交换 这样实现了x1,x2,x3的从小到大排序
vb题求助大神b,c整型 b=6:c=6.5 a=b=c print a
返回 True 原因：∵ b 和 c 都是整型数据 ∴ c = 6.5 一定会对小数点做取舍，而编译器只会对小数点后面大于 0.5 的数做取舍，所以此时 c 会被赋值 6 ' 这是一个逻辑表达式，计算顺序为：' 1. 先判断 b = c 是否成立，显然，根据上面的判断这个条件成立，因此返回 True' 2. a = ...
求问vb大神一道简单题,谢谢
2，For i = 1 To 20 Step 2 这个循环的规则。解答如下：1，运算符号 \\ 的运算规则 运算符号 \\ 是针对两个整数，计算整数范围内的商，不必考虑余数，例如：小学刚开始学习除法，由于还没有接触到小数、分数，老师这么讲解：商余数 7 ÷ 4 = 1 ... 3 那么在VB中有：7 \\ 4 = 1 9 \\ 4...
