王朝知道

分享

 

01.一个简单的VB编程问题
do while (rs.eof=false) combo.additem rs.fields(0) rs.movenextloop这段程序没测试，但应该没什么问题。你能看懂吗？rs是一个记录集，假设rs的第0个字段就是你所需要的字段...查看完整版>>一个简单的VB编程问题02.一个简单的vb编程题！！！救救
' InputA InputB 为输入的两个字符' 先得到他们的asc值InputA_Asc=Asc(InputA)InputB_Asc=Asc(InputB)'按你所描述的结果则必须 InputA<InputB，则这里可能'需要判断，不过我在这里就不说了！TmpK=InputA_AscFor T...查看完整版>>一个简单的vb编程题！！！救救03.VB编程的简单问题请教大家
Private Sub Command1_Click()Dim a As ObjectFor Each a In Me.Controls If TypeOf a Is OptionButton Then If a.Value Then List1.AddItem a.Caption: Exit Sub End IfNextEnd Sub...查看完整版>>VB编程的简单问题请教大家04.简单VB编程（来看看）
Private Function GetNumberString(strNumber As String) As StringDim i As IntegerDim j As IntegerDim strResultDim count(1 To 9) As IntegerFor i = 1 To 9 count(i) = 0Next iFor i = 1 To Len(strNumber) ...查看完整版>>简单VB编程（来看看）05.请问一个关于vb.net编程的问题!
编程这么多年怎么没听过声音事件呢？？要不你就在FROMLOAD事件里启动一个音频文件，要不就在你想在点击或离开等什么的你想要启动声音的事件时打开这个声音文件。并在触发什么时间时关闭它就好了。...查看完整版>>请问一个关于vb.net编程的问题!06.编程:VB的一个小小问题?
不就是求最大公约数嘛，从较小的那个数开始循环到1，如果能被两个数同时整除，就是了呗。dim a,b,c,ia=100b=50if a>b thenc=belsec=aend iffor i=c to 1 if (a mod i)=0 and (b mod i)=0 then c=i exit fo...查看完整版>>编程:VB的一个小小问题?07.向大家请教一个VB编程题
你没有告诉系统π的取值，所以系统默认为0Private Sub Form_click() Dim a!, b!, c!a = InputBox("请输入第一个数值")b = InputBox("请输入第二个数值")c = InputBox("请输入第三个数值")π = 3.14n = (π * Val(a) ...查看完整版>>向大家请教一个VB编程题08.请问一个关于vb.net编程的问题
例如你的字段名叫a，里面用"1"表示男，"0"表示女，那麼SQL这样写即可：SELECT (CASE A WHEN '1' THEN '男' WHEN '0' THEN '女' END ) AS '姓别' FROM TABLE_NAME然后生成一个这样的DATATABLE赋给DataGridView的数据源...查看完整版>>请问一个关于vb.net编程的问题09.一个VB编程问题,用递归算法解决
假设楼梯级数为N时的方法数是F(N)，那么第一步可选择1或2级楼梯。当第一步为1级时剩下楼梯的级数为N-1，故方法数为F(N-1)；当第一步为2级时，剩下楼梯的级数为N-2，故方法数为F(N-2)。Function F(ByVal n As Integer...查看完整版>>一个VB编程问题,用递归算法解决10.一个关于VB编程的问题！！！
此函数应该没有错误，在WinXP sp2 + VB6 sp6下测试通过Private Sub Command1_Click() Dim pp() As String Dim i As Integer pp = ReadFile("d:\a.txt") For i = 1 To UBound(pp) MsgBox pp(i) NextEnd Sub怪...查看完整版>>一个关于VB编程的问题！！！

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。