问四道VB的简单题 初学VB不太会 懂的进来，高分悬赏！_百度知道
问四道VB的简单题 初学VB不太会 懂的进来，高分悬赏！
jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http://f<a href="http://f.com/zhidao/wh%3D600%2C800/sign=1ff55d0fb812c8fcb4a6fecbcc33be7d/4ec2ddd8a6f8af077c6a7efce1b6259:///zhidao/pic/item/4ec2ddd8a6f8af077c6a7efce1b6259./zhidao/wh%3D450%2C600/sign=ae83e61cbaa091fddd8a6f8af077c6a7efce1b6259.jpg" esrc="http.hiphotos.baidu.hiphotos
重点后面两道
提问者采纳
Private Sub Command1_Click()Dim x As SingleDim y As SingleDim z As SingleDim t As Singlex = Val(InputBox(&quot, zEnd Sub2; z Then
z = tEnd IfP 1 Then
y = Sqr(x)Else
y = 0End IfPrint y3;输入y&))n = Val(InputBox(&输入x&))If x &输入x&quot,))y = Val(InputBox(&quot,Dim x As SingleDim y As Singlex = Val(InputBox(&输入x&))z = Val(InputBox(&quot,Private Sub Command1_Click()Dim n As SingleDim x As SingleDim s As SingleDim i As LongDim j As Integerx = Val(InputBox(& y Then
y = tEnd IfIf x &输入z&quot1; 5 Then
y = x - 5ElseIf x &))s = 0j = 1For i = 1 To n
s = s + (-1) ^ (i - 1) * x ^ (2 * i - 1) / 0 And x &= 1 And x &= 5 Then
y = x ^ 2ElseIf x & z Then
z = tEnd IfIf y &))If x &输入n&quot
4,Dim i As LongDim j As LongDim s As SingleDim c As Singlec = 0.5i = 1j = 1s = 1Do While c &= 10 ^ (-4)
s = s + 1 &#47; j
c = 1 &#47; j
c = c - 1 &#47; jLoopPrint s
提问者评价
太感谢了，真心有用
其他类似问题
按默认排序
其他2条回答
a =请输入N的值;题目4;Print &quot,请输入X的值：&quot.0001Print &quot: t = 1Do
t = t &#47: b = tEnd IfIf a &= 1 Then
If x &gt: c = tEnd IfIf b &lt：& 0: i = 1;: c = tEnd IfPrint & i
s = s + 1Loop Until t1 - t &))c = Val(InputBox(& c Then
t =Print a：&quotPrivate Sub Command1_Click()a = Val(InputBox(&quot：&请输入X的值;题目1;))t = xsinx = tFor i = 2 To n
t = -t * x * x &#47：&))If a & c Then
t =题目3: a = c：&题目2; ((i + i - 2) * (i + i - 1))
sinx = sinx + t
P请输入C的值;
If i Mod 3 = 0 Then PrintNext iPrint &Print yEnd Sub Private Sub Command3_Click()x = Val(InputBox(& 0 Then
y = Sqr(x)
End IfEnd IfPrint &quot：&e=&sinx=& sinxEnd Sub Private Sub Command4_Click()e = 1#;))If x & 5 Then
y = x - 5Else
If x &：&))b = Val(InputBox(& b Then
t = a, cEnd Sub Private Sub Command2_Click()x = Val(InputBox(&请输入A的值;Print &quot: b = c：&))n = Val(InputBox(&quot：&请输入B的值
Sub Q1()Dim i%, j%Dim tmpi%, tmpj%Dim v, s$v = InputBox(&Input 3 integers, split by comma& & vbCrLf & &For example: 5,10,300&)v = Split(v, &,&)For i = 0 To UBound(v)
For j = i + 1 To UBound(v)
If v(j) & v(i) Then
tmpi = v(i)
tmpj = v(j)
v(i) = tmpj
v(j) = tmpi
s = s & v(i) & &&&Next iMsgBox Left(s, Len(s) - 1)End SubSub Q2()Dim x, yx = InputBox(&x=&)If x & 5 Then
y = x - 5ElseIf x &= 1 And x &= 5 Then
y = x ^ 2ElseIf x & 0 And x & 1 Then
y = Sqr(x)Else
y = 0End IfMsgBox &When x= & & x & & then y= & & yEnd SubSub Q3()Dim v, s#, x#, n%, i%, j%, k&v = Split(InputBox(&Input values for x and n, split by comma& & vbCrLf & &n should be integer greater than 0&), &,&)x = v(0)n = v(1)For i = 1 To n
For j = 1 To 2 * i - 1
If i Mod 2 && 0 Then
s = s + x ^ (2 * i - 1) / k
s = s - x ^ (2 * i - 1) / k
End IfNext iMsgBox &When x= & & x & & and n= & & n & vbCrLf & &then sinx= & & sEnd SubSub Q4()Dim s#, i%, j%, k, tmp#, pre#i = 0s = 1Do
For j = 1 To i
tmp = 1 / k
s = s + 1 / k
Debug.Print i, s, Round(tmp, 5), Round(pre, 5), vbCrLfLoop Until Abs(pre - tmp) & 10 ^ (-4)MsgBox &e= & & sEnd Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求英语学霸⊙▽⊙ 渣渣就不要点进来了 悬赏20 全部帮忙写完，感激不尽_百度知道
求英语学霸⊙▽⊙ 渣渣就不要点进来了 悬赏20 全部帮忙写完，感激不尽
baidu://g.hiphotos./zhidao/pic/item//zhidao/wh%3D600%2C800/sign=ea5d0e6373d7ca/e824b899afdb0cb097b0e://g.jpg" esrc="http.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/wh%3D450%2C600/sign=7ec3fe1df8f2b211e47b8d4affb0490e/e824b899afdb0cb097b0e&<a href="http
提问者采纳
我会，你先别采纳别的，先看一下我的，等会啊
下次不要再把初三的放在小学了，很难为人
给个好评吧⊙▽⊙
不清楚的地方我重新发给你
&#128515;被你发现鸟
假如窝写初三英语很多人就不会点进来了
好了Y(^o^)Y
看我做的这么辛苦，给个好评吧
太好了，感激不尽，好评必须的
提问者评价
你的回答完美的解决了我的问题，谢谢！
缱绻西风独自凉
来自:作业帮
其他类似问题
按默认排序
其他5条回答
能不能一题题照，要不然看不清
这个是sectionB 2b短文
拜托20分财富值不是白拿的
可是。。。
我劝你还是百度吧
我去，有点多
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁高手进来。数学题。高分悬赏。会做一道也行_百度知道
高手进来。数学题。高分悬赏。会做一道也行
实数k的取范围2;9-k+y^2&#47。把p=2cor&-4sin&还有{x=cos&;4-k表示双曲线;y=cos2&+1化为普通方程31。方程x^2&#47
提问者采纳
0&4-k&k&lt： X^2-2X-4=R^2 (X-1)^2-5=R^2 因为R最小;0or 9-k&0&4-k&gt， 则可列方程;0 所以 4&lt： R^2=X^2+Y^2 Y^2=－4－2X 代如于是;9(2)第一个不知道什么东西 第二个 y=2cos &^2-1+1=2cos&^2y=2x^2(3)设圆R^2=X^2+Y^2与曲线交于A，所以R^2最小 所以(X-1)^2最小，所以X=-2 Y=0 于是A(-2(1)9-k&gt
其他类似问题
数学题的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求详细解答，可以快点吗？就这两道题，完全看不懂。求学霸迅速解答，谢谢，定悬赏！_百度知道
求详细解答，可以快点吗？就这两道题，完全看不懂。求学霸迅速解答，谢谢，定悬赏！
//e.hiphotos://e.baidu.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http.hiphotos&/zhidao/pic//zhidao/wh%3D450%2C600/sign=fb274c7ce/42a98226cffc1e170e8cc35bde9ad.jpg" esrc="<img class="ikqb_img" src="http.hiphotos&/zhidao/pic//zhidao/wh%3D450%2C600/sign=d874fcd1a51ea8d38a777c00a23a1c78/0dd7912397dda1b1b7d0a20cf4862d.jpg" esrc="<a href="http./zhidao/wh%3D600%2C800/sign=870ffe501ad8bc3ec65d0eccb2bb8a26/0dd7912397dda1b1b7d0a20cf4862d://d
看不清，能再拍一次吗，谢谢啦
真的看不清，我好急啊
看清了，谢谢
提问者评价
你的回答完美的解决了我的问题，谢谢！
来自:作业帮
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁