VB初级编程,大虾请进
悬赏分:0
要求...
-----------------------------------
我想你已经知道答案了,唯一值得一看的是“在线等”三个字。
可是你在等什么呢?0分悬赏和差劲的态度下获得答复的机会,你认为你的等待值得吗?
我认为是不值得的。
肺腑直言,望你觉醒!
每次循环i会自加1,直到n。循环体(for语句内部)就是把上一次的S乘以i,最后循环结束s=1*2*3*…*n
在窗体上画两个相同的label控件,-个定时控件。定时控件的interval属性设为200,用如下代码可以做到你要的效果。Private Sub Timer1_Timer()
If (Label1.Left + Label1.Width >= Form1.Width) Then
If Label2.Visible = False Then
Label2.Left = 0 - Label2.Width
label2.top=label1.top
End If
Label2.Visible = True
End If
If (Label1.Left >= Form1.Width) Then
Label1.Left = 0
Label2.Visible = False
End If
If Label2.Visible = True Then
Label2.Left = Label2.Left + 100
End If
Label1.Left = Label1.Left + 100
别用 if label.left>me.width
要用 label.left>me.width - label.width
有可能属性名写的不对,就是这个意思
思路是这样的
如果 lable的左边距 小于 窗口宽减去lable的宽 然后执行操作
顶楼上 必须用两个
Label1的Index属性改成0
Private Sub Form_Load()
Load Label1(1)
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Label1(0).Left = Label1(0).Left + 100
l = Label1(0).Left + Label1(0).Width
If Label1(0).Left > Width Then
Label1(0).Left = 0
Label1(1).Visible = False
ElseIf Label1(0).Left + Label1(0).Width > Width Then
Label1(1).Left = Label1(0).Left - Width
Label1(1).Visible = True
End If
End Sub
添加一个计时器,一个标签框
编写如下代码:
Private Sub Form_Load()
Timer1.Interval=20
Timer1.Enabled=True
End Sub
Private Sub Timer_Timer()
Label1.Left = Label1.Left+10
If Label1.Left>Form1.ScaleWidth-Label1.Width Then Label1.Left=0
End If
建议用label控件组,别说是平移了,就是加上变色,变大小等等多种效果,都能实现!也可实现文字跟随鼠标,文字钟表等等!说出你想要的效果,我马上把代码跟贴,或留下你的联系方法,代码发给你也可以!
请问大虾们
C语言的编译器,可以使用VC.NET,BC++这些商业软件。也可以使用一些免费的软件。 DEV-C++ http:\/\/www...本书的主要目标是:在合理的编程规则下以一种能够被初级程序员接受的方式介绍上述内容,以期提供给读者
matlab中的程序过不去,我是初学者,请各位大虾帮帮忙!
clear all w=0.3*pi;A=0.2;h=0.4;t=linspace(0,50,25000);xc=dsolve('D2x=-2*b*Dx-w^2*x+h*cos(w1*t)','Dx(0)=0','x(0)=0','t');b=input('b=');k=0.1:0.01:2.5;r=zeros(1,length(k));w1=zeros(1,length(k));for i=1:length(k)r(i)=k(i);w1(...
请各位大虾进来看一下,这个问题~~~急急急~~~
问题发错地方了
请高手解答 菜鸟的 C语言 编程问题 跪求大虾
因不知道你要实现什么,我只能说下可能出的问题。首先,a值,i=2时,a=2;i++后,a从2乘起,a=2*1*2*3*4=48。还有,pow()返回类型为double,(float)不需要。再者,超出范围,应该是sum吧,这不能说是超出范围,你sum没有初始化,得到的结果当然是乱码。
麻烦哪位大虾帮小妹做一个C语言的编程题,急用!谢谢!!
include<stdio.h> int is_prime(int n){ int i;if(n==1)return 0;for(i=2;i<n;i++){ if(n%i==0)break;} if(i==n)return 1;else return 0;} main(){ int num;printf("input a number:");scanf("%d",&num);if(is_prime(num))printf("the number is a prime.\\n");...
作业初学者,各位大虾们请问如何做网站,或建站入门
目前所见即所得类型的工具越来越多,使用也越来越方便,所以制作网页已经变成了一件轻松 的工作,不像以前要手工编写一行行的源代码那样。一般初学者经过短暂的学习就可以学会制 作网站,于是他们认为网站制作非常简单,就匆匆忙忙制作自己的网站,可是做出来之后与别 人一比,才发现自己的网站非常粗糙,不...
【向大虾求助,C语言编程问题,C++】输入三个int整数x,y,z,请把这三个...
\/\/#include "stdafx.h"\/\/If the vc++6.0, with this line.#include <iostream>using namespace std;int main(int argv,char *argc[]){int x,y,z,t;cout << "Input 3 integers...\\n";cin >> x >> y >> z;if(x>y)t=x,x=y,y=t;if(x>z)t=x,x=z,z=t;if(y>z)t...
C语言问题,请大虾帮忙,急用!!
1。11 a++是说a=a+1;2。30,25 3。abc 4。s=12811 5。12861
请求大虾解释以下程序,谢谢!
传值 和 传引用 传值包括两种 直接传变量 或 传指针.fun函数属于传值,只不过传的是指针而已.fun函数中 a ,b属形参-->传入的实参的一份copy ,对形参的任何操作是不会反应到实参上面去的.void swap(int *a ,int *b) 上述fun 只是交换了指针的指向.而这个swap,改变的是指针指向的值.{ ...
我是一个平面设计师,我现在想学编程,但我什么都不懂,麻烦大虾告诉我该重...
1.C语言初学者入门讲座:http:\/\/www.hlib.cn\/search.asp?keyword=C%D3%EF%D1%D4%B3%F5%D1%A7%D5%DF%C8%EB%C3%C5%BD%B2%D7%F9 2.C\/C++头文件一览:http:\/\/www.hlib.cn\/article\/program\/640.asp 3.C\/C++中的整型常识:http:\/\/www.hlib.cn\/article\/program\/638.asp 4.C语言编程...
徐蕊益肺: VB6.0 全称为VisualBasic 6.0,是微软公司推出的可视化编程工具MSDN之一,是目前世界上使用最广泛的程序开发工具.如果你是一个对编程一无所知,而又迫切希望掌握一种快捷实用的编程语言的初学者,那选择VB 6.0没错的.即使考虑到...
泾阳县17082502641: 会VB编程者请进?
徐蕊益肺: Private Sub Form_Click() Do Until i = 100 i = i + 1 s = s + i Loop Print s End Sub
泾阳县17082502641: VB关于文件夹和文件的两个小操作,请大虾指教 - ?
徐蕊益肺: 一、 在VB编程中,经常需要判断一个文件和文件或是否存在,以便执行相相应的操作,这可以用下列语句进行判断. Dir ([PathName],[Attributes as VbFileAttribute = vbNormal]) as String解释:PathName:文件或文件夹的绝对路径....
泾阳县17082502641: 大虾你请进一个VB 窗口托动问题 - ?
徐蕊益肺: 我来.我做过.Private Declare Function ReleaseCapture Lib "user32" () As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessage...
泾阳县17082502641: 简单的vb编程题一道,大虾出手啊?
徐蕊益肺: Private Sub Command1_Click() For i = 1 To 100 Step 2 a = a + i Next Print a End Sub
泾阳县17082502641: 用vb编程,怎么从excel或txt(有n行6列)中取其中一列数据,要一个一个的取,小弟菜鸟,望大虾指教 - ?
徐蕊益肺: Private Sub ComSend1_Click() Dim fs As Variant Dim a As String Dim i As Long Dim filepath As String Dim m filepath = App.Path & "\abc.txt" '文本文档名称为 123.txt Open filepath For Input As #1 Line Input #1, a Close #1 m = Split(a, ",") If ...
泾阳县17082502641: 如何学好VB? - ?
徐蕊益肺: 如何学好VB程序设计 1,学习程序设计的基本要求 2,Vb的功能及特点 3,学习VB程序设计的方法 学习程序设计基本要求 对学习者知识的要求: 学习程序设计要有一定的逻辑思维能力.逻辑思维需要长时间的锻炼,如果你觉得自己在逻辑思维能...
泾阳县17082502641: 关于《VB》入门的知识?
徐蕊益肺: 刚入门的话搞清楚三点就好了: 1.对象 Windows下的应用程序界面都是以窗口的形式出现的,窗口就是代表屏幕上的某个矩形对象,一个窗口可能包容其他窗口,这些被包容的窗口被称为子窗口.在VB中,把这些窗口叫做"窗体(Form)"....
泾阳县17082502641: Visual Basic从零学起 - ?
徐蕊益肺: 你问的这个问题其实不太好回答,首先我要知道你以后工作的侧重点,像我一样铁了心作程序员的话,建议你学习微软主推的C# 或者 Sun&IBM等 主推的Java 因为要靠写代码吃饭的话C#或者Java是进入公司的敲门砖.建议一开始不要学习C++,...
泾阳县17082502641: VB的编程题目 麻烦大虾能快速解答?
徐蕊益肺: 1 a=0for i= 1 to 2000if i mod 3=0 and i mod 4=0 thena=a+1end ifnext i print a 2For x = 0 To 3600 Step 0.01 y = Sin(x)Form1.PSet (x, y) Next i ps:坐标自己调 第三题不明白问什么