tomax贴吧

康玲蓝5106VB程序:从1到49任取6个数,最后输出所有取法. -
鲁追郭19489428182 ______ Option Explicit'组合总数:13983816Private Sub Command1_Click() Const Min As Integer = 1 Const Max As Integer = 49 Dim lngZuhe As Long Dim i As Integer, ...

康玲蓝5106丰田RAV4车速到达1700转时为什么有很大的声音,发现这个问题一个月了,高手请教什么原因! -
鲁追郭19489428182 ______ 车辆在行驶过程中产生共振造成的.你的车辆共振频率在1700转时.所以才会有上述现象.也可以进行改善,将共振频率后移,达到...

康玲蓝5106用vbs如何删除数组中的重复元素
鲁追郭19489428182 ______ 以下代码为伪代码,不能直接运行,大概意思就是这样: Dim max as Integer '数组长度 Dim a(0 to 9) as Integer '长度为10的数组 Dim i as Integer,j as Integer,k as Integer 'i,j,k为3个循环控制变量 max=10 for i=0 to max-1 step 1 for j=i+1 to max...

康玲蓝5106刷爆某人的信用卡 . 可以说 to Max out one's credit card 吗? 或者怎么说谢谢. -
鲁追郭19489428182 ______ 可以的~max out (非正式美式用语) 可以表示刷爆(信用卡)

康玲蓝5106如何判断一个窗口已经创建
鲁追郭19489428182 ______ 建立2个全局数组变量(收容窗体的类名和指针),一旦创建窗体之后,把类名和指针分别存入.要判断是否已经创建,就在数组中比较是否存在即可.创建时: for i :=0 to MaxForm do //MaxForm 是控制创建窗体的数量 if PFormPoint[i] = nil ...

康玲蓝5106VB中如何循环往数据库中插入数据 -
鲁追郭19489428182 ______ 一个数据库文件中有很多表 Dim con As ADODB.Connection Dim zrst As ADODB.Recordset set zcon=new ADODB.Connection con.CursorLocation = adUseClient con.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ ...

康玲蓝5106书的复制 pascal -
鲁追郭19489428182 ______ var f,g:array[0..50,0..50]of longint; a:array[0..500]of longint; m,k:longint; i,j,t:longint; s:array[0..500]of longint; ans1,ans2:array[1..500]of longint;y:longint; function max(a,b:longint):longint; begin if a>b then max:=a else max:=b; end; begin readln(m...