请高手赐教：（用VB编程）用键盘随机输入整数N,求和：1+1/2+1/3+1/4+...+1/N

编写程序实现求和:1-1/2+1/3-1/4+...........1/n~

#include
void main()
{
float n,sum=0,i,s=1;
printf("input n:
");
scanf("%f",&n);
for(i=1;i<=n;i++)
{
sum=sum+ s*(1/i) ;
s=s*(-1);
}
printf("sum=%f",sum);
}

Private Sub Command1_click() Dim i as Integer, s as Double, n as Integer n=Val(Inputbox("请输入正整数：")) s=0 For i = 1 to n s=s+jie(i)/(i+1) Next i Msgbox sEnd SubPublic Function jie(num as Integer) as Integer Dim i as Integer jie=1 For i=1 to num jie=jie*i Next iEnd Function这回好了！~~

这个答案不会有一个准确的数值，最大值也就是2了。 方法：在窗体上画一个Command控件：代码如下：Private Sub Command1_Click()
Dim Sum As Long '定义一个存放和的变量
Dim I As Long '定义个循环变量
Sum = 0 '和变量初始值为0
I = InputBox("请输入一个整数", "输入一个数字") '让用户从键盘输入一个整数存放到I
For I = 1 To I '利用For循环，让I值从1到键盘输入的那个整数
Sum = Sum + 1 / I '将和进行叠加
Next I 'I的值增加1后再次返回到For语句处，一直循环到I等键盘输入的值
Print "1+1/2+1/3+....+" & "1/" & I & "的和是:" & Sum '在屏幕上输出结果
End Sub

---

关岭布依族苗族自治县18633209787： 请高手赐教:(用VB编程)用键盘随机输入整数N,求和:1+1/2+1/3+1/4+...+1/N - ？
蔡伟青羚： 这个答案不会有一个准确的数值,最大值也就是2了. 方法:在窗体上画一个Command控件:代码如下:Private Sub Command1_Click() Dim Sum As Long '定义一个存放和的变量 Dim I As Long '定义个循环变量 Sum = 0 '和变量初始值为0 I = ...

关岭布依族苗族自治县18633209787： VB高手请进!求键盘控制的代码!谢谢…到时定有重谢…我对VB只懂一点点!尽量让我复制代码!谢咯…？
蔡伟青羚： 很简单啊,用这个函数:GetAsyncKeyState 代码过程如下: 先在模块中作以下声明 Public Declare Function GetAsyncKeyState Lib ＂user32＂ (ByVal vkey As Long) As Integer 然后在窗体上添加一个timer控件和一个command 控件. Private Sub ...

关岭布依族苗族自治县18633209787： 怎样用VB模拟键盘输入 - ？
蔡伟青羚： ivate Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib ＂user32＂ Alias ＂FindWindowExA＂ (ByVal ...

关岭布依族苗族自治县18633209787： 求VB高手:键盘输入一个字符串,编程实现在输入的字符串中每两个相邻字符之间插入”/”,再输出结果？
蔡伟青羚： dim a as string,b as string a=inputbox(＂输入一个字符串＂) for i=1 to len(a)-1 b=b &amp; mid(a,i,1) &amp; ＂/＂ next print b

关岭布依族苗族自治县18633209787： 用VB实现键盘模拟 - ？
蔡伟青羚： 单击A键,和单击按钮的效果是一样的,你只需要改变KeyCode = vbKeyA 的值,就可以改变不同的键,具体查一下KeyCode就可以了 Private Sub Command1_Click() MsgBox ＂sssssss＂ End Sub Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA Then Command1_Click End If End Sub

关岭布依族苗族自治县18633209787： vb中如何用键盘事件来控制图片的移动,想要的效果就是每按下字母a键一次则图片就会向窗体的右边移动一小段 - ？
蔡伟青羚： Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 65 Then Picture1.Left = Picture1.Left + 100 End If End Sub

关岭布依族苗族自治县18633209787： 求一个完整的用VB写的模拟按一个按键的程序(比如按“A”键) - ？
蔡伟青羚： VB 自带了一个模拟按键的函数 Sendkeys Sendkeys ＂A＂ '按下 A 键

关岭布依族苗族自治县18633209787： vb 通过按键使图像移动 请教高手 - ？
蔡伟青羚： 新建一个picture控件,设置picture属性,双击控件,把 Private Sub Picture1_Click() End Sub 撤销掉,再输入:Private Sub Form_Load() Picture1.AutoSize = True Picture1.BorderStyle = 0 End Sub Private Sub Picture1_KeyDown(KeyCode As ...

关岭布依族苗族自治县18633209787： 求一个VB模拟键盘输入的完整实例 - ？
蔡伟青羚： 在窗体的键盘事件中写代码 Private Sub Form_KeyPress(KeyAscii As Integer) Select Case KeyAscii'keyascii是ascii码 Case 49'判断如果是按下的1 SendKeys (＂a＂)'发送a字符 End Select End Sub 你要求的是简单的,所以用了sendkeys,要真正的模拟按键需要使用postmessage.

关岭布依族苗族自治县18633209787： VB怎么样用代码控制键盘？
蔡伟青羚： 加入timer控件,I开头的那属性设置为1000就是一秒,里面写入sendkeys ＂1＂……