vb编程！！请高手帮帮忙~~
这是SQL数据库文件
安装SQL2000或更高版本
附加数据库
用ADO组件来连接
希望能帮到你
Private Sub Form_Load()
dim m, n as integer
for n = 1 to 100 step 1
m = m + n
next n
label1.text = m
End Sub
HTML也太简单了，peiyifei1993就是很好的答案。
Private Sub Form_Click()
Dim a(50) As Integer, i As Integer, j As Integer, temp As Integer
For i = 1 To 50 '产生50个10~100之间的互不相同的整数
Randomize
a(i) = Int(Rnd * 91 + 10)
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1
Next j
Next i
For i = 1 To 50 '以升序排列
For j = i + 1 To 50
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To 50 '每行10个数显示
If i Mod 10 = 0 Then
Else
Print a(i);
End If
Next i
End Sub
怎么现在都是一个问题n个人问，哈
看看这里
http://zhidao.baidu.com/question/50207025.html
编程高手帮我解决个小问题吧,谢谢啦、是作业题,用c++语言编写
include <string> using namespace std;int main(){ string str1;string str2;string str3;cin>>str1;cin>>str2;str3=str1+""+str2;cout << str3 <<endl;return 0;} 第三题:include<iostream> using namespace std;class zhouchang_mianji(double a,double b,double p1,double p2)...
请高手帮忙看看这个程序!!!
void main(){ int i,a=0,b=0;for(i=1;i<10;i++) i从1到9循环 { if(i%2==0) 如果i是偶数 { a++; a加1 continue; 回到循环最后的i++ } b++; i是奇数时b+1 } printf("a=%d,b=%d\\n",a,b); 输出1到9 中偶数与奇数个数 } ...
excel 表格中的编程语句,请高手帮我解释一下下列语句的含义,谢谢_百度...
这程序是将表1的内容逐行复制到表2 对应的单元格中，并独立打印出来。Sub xx()Dim lastrow As Long ‘定义变类型 lastrow = Range("B65536").End(xlUp).Row() '读Sheet1有内容最后的行号 Sheets("Sheet2").Select ‘选择Sheet2 For i = 2 To lastrow '取Sheet1从第2行到...
请教JAVA编程高手一个问题,如何在面板上绘图?
请教JAVA编程高手一个问题,如何在面板上绘图? 20 我用Swing图形开发界面做个东西,想在面板上贴副图。可是不会。哪位大哥,大姐帮帮忙吧!!最好是给各例子让我看看。先谢了!!1我是想在面板上绘图,不是自己画图案,是把图片画上去... 我用Swing图形开发界面做个东西,想在面板上贴副图。可是不会。哪位大哥,...
请程序高手帮忙 visual basic 广州亚运倒计时器
Label1.Caption = "距离2010年11月12日亚运还有"Timer1.Interval = 50 Timer1.Interval = 50 Timer2.Enabled = True a = Format(CDate("2010-11-12"), "y")Debug.Print DateDiff("d", CDate("2010-1-2"), CDate("2010-11-12")), a End Sub Private Sub Timer1_Timer()b = ...
麻烦各位高手帮忙编个程序 小弟是新手 完全不懂
26 cout<<"请输入进程数目:\\n";27 cin>>m;28 cout<<"请输入资源数目:\\n";29 cin>>n;30 cout<<"请输入Available矩阵\\n";31 for(int i=0;i<m;i++)32 for(int j=0;j<n;j++)33 { 34 cin>>PCB.Allocation[i][j];35 } 36 cout<<"请输入...
请网络编程高手帮帮我的忙!帮我封闭窗口上的X!最好作个教程!
－－－ Private Sub Form_Unload(Cancel As Integer)Cancel = True End Sub 让窗体的关闭按钮失效 －－－ Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long...
学编程到底是学C语言、C++、VB、jave中的哪种比较好?
以后的... 我想学编程,可问题是不知道学哪种编程语言。麻烦大家指点下,C语言、C++、VB、jave有什么区别?编写的程序有哪些不同?各自的起点有哪些不同?学成后面向的对象有什么不一样?以后的发展方向又如何?如果想编写hei ke 程序以及大型应用软件最好学习哪种语言?希望有各位高手帮我解决问题。那些随便在百度知道...
一个C语言的编程题目,请高手帮忙!谢谢!
\/*第一题：从键盘输入任意两个正整数x和y，编程求出两数的最大公因子和最小公倍数 \/ include <stdio.h> int main(void){ unsigned int x,y,i,a,b;printf("请输入两个正整数x和y:");scanf("%d %d", &x,&y);if (x < 2 || y < 2) { printf("无效的输入\\n");return 0;}...
[急求助]C语言程序编程题,请高手帮忙解答下。!
只要输入一行就行了:include<stdio.h> include<math.h> void fun(int a,int b,long c){ c=a%10*100+a\/10+b\/10*1000+b%10*10;\/*解释:a%10的意思是a除以10剩下的余数，即a的个位数，若a是45，a%10就是5，再乘以100即是500;a\/10就是十位数，即4，原因是它是向下取整，45\/10虽...
偶吉舒必： [[[[[[[[[[[[很简单的代码]]]]]]]]]]]]]]] 如果是一个文本框的话,输入 Private Sub Command1_Click() x = Val(Text1.Text) a = Int(x / 1000) b = Int((x - 1000 * a) / 100) c = Int((x - 1000 * a - b * 100) / 10) d = Int((x - 1000 * a - b * 100 - c * 10) / 1) If a >= b Then ...
大荔县19717604914： vb串口通信编程,请高手帮忙 - ？
偶吉舒必： 按你提供的C2C7FAE1看为16进制数,其10进制值为-1027081503,如何处理成-99.99要看下位机是如何约定数据的来定. Text1 = &HC2C7FAE1 或 Text1 = VAL(&HC2C7FAE1)一般上下位机对数字值传递通常以16位二进制数字传递,而小数...
大荔县19717604914： 求VB高手帮忙 - ？
偶吉舒必： 获取这个a.exe的进程ID代码X:dim X as longX=shell(＂a.exe＂)'必要时要加上详细路径启动b.exe+参数 获取到的a.exe进程ID:Y=shell(＂b.exe＂+str(X))
大荔县19717604914： 求高手帮做一个vb程序!!!？
偶吉舒必：代码: '-------------------------------------------------------------------- Private Sub Command1_Click() JE = Val(Text1) B = JE \ 100 W = (JE - B * 100) \ 50 E = (JE - B * 100 - W * 50) \ 20 S = (JE - B * 100 - W * 50 - E * 20) \ 10 WY = (JE - B * 100 - W * 50 - E * ...
大荔县19717604914： 会VB编程的高手帮一下忙!？
偶吉舒必： Sum = 0 For i = 1000 To 2000 If i Mod 177 = 0 Then Print i Sum = Sum + i End If Next Print ＂SUM:＂ & Sum
大荔县19717604914： 求高手帮忙编写VB程序？
偶吉舒必： Public Function dectoBin(X As String) Const Bins = ＂0000000100100011010001010110011110001001101010111100110111101111＂ Dim i As Integer, s As String, y As String y = hex(X) s = ＂＂ For i = 1 To Len(y) s = s + Mid(Bins, (Val(＂&h＂ + Mid(y, i, 1)) * 4 + 1), 4) Next dectoBin = Format(s, ＂0＂) End Function
大荔县19717604914： 高手帮忙编写VB程序,谢谢!!!!？
偶吉舒必： Private Sub Command1_Click()Dim i, jFor i = 1 To 4 For j = 0 To i - 1 Print i + j; Next j PrintNext i End Sub
大荔县19717604914： VB设计一个高难度程序,,,高手进来帮忙 - ？
偶吉舒必： 放两text,放一个按钮,按钮里面代码如下,在text1里输数据,text2里面出结果 private sub command1_click mm=0 for i=1 to val(text1.text) mm=mm+i next text2.text=mm end sub
大荔县19717604914： vb 编程 请大家帮忙 - ？
偶吉舒必： dim max as double,avg as double, arr(1 to 10) as double , sum as double, cou as in...
大荔县19717604914： vb编程 高手帮帮忙吧 - ？
偶吉舒必： 闲着也是闲着,就写几句吧:Private Type myV value As Integer index As Integer End Type Dim maxValue As myV Dim minValue As myV Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim cv As Integer If KeyAscii = 13 Then cv = Val(...
