求1+（1+2）+（1+2+3）+（1+2+3+…+n）+…的值.N的值由文本框输入.用vb语言
海滩上的脚印2022-10-04 11:39:541条回答
已提交，审核后显示！提交回复
共1条回复
tiangang498 共回答了23个问题 |采纳率91.3%- Dim i As Integer
Dim s As Integer
Dim T As Integer
Dim n As Integer
n = Val(InputBox("请输入n值；"))
s = 0
T = 0
For i = 1 To n
T = T + i
s = s + T
Next i
Print s - 1年前
相关推荐
- 运算符 | 怎么用的?附图的题目为在3个文本框内输入数字“1-9”九个自然数,且
运算符 | 怎么用的?附图的题目为在3个文本框内输入数字“1-9”九个自然数,且
运算符 |是什么意思 怎么用的?
附图的题目为在3个文本框内输入数字“1-9”九个自然数,且无重复.
对这个 | 运算符真的一点都不理解… 请求详细解释.
loveluoyuan1年前1 -
流浪的孩子很幸福 共回答了17个问题
|采纳率88.2%这个跟你上个问题你一样的啊,mask是一个数组,mask[k]就获得了数组里面的一个十六进制数,
然后和f进行或运算,像你上个问题的0xf8 | 0x3f或运算结果为0xff；
这题假设f是十进制的0,mask[k]取得是第一个数0x00,他俩的或运算结果就是
0 | 0x00 = 01年前查看全部
- vb程序设计问题,求代码随机生成10个两位正整数并显示在一个文本框中,再找出这10个数中最大的数,并指出它是第几个数
康桥老农1年前1
-
liyunxia 共回答了21个问题
|采纳率85.7%dim a%(1 to 10)
max=0:k=0
for i = 1 to 10
a(i)=int(rnd*(99-10+1)+10)
text1=text1 & a(i) & space(2)
if a(i) >max then
max=a(i) k=i
endif
next i
print max,k1年前查看全部
- VB编写一个程序,实现在文本框内输入一个长度值,单位为“厘米”,点击名利按钮转化为X米X分米X厘米的形式
我是胡一刀1年前1
-
lgqlxd 共回答了15个问题
|采纳率93.3%text1.text=1234567
dim a as double =text1.text
a=a/100
米=mid(a,1,instr(a,".")-1)
厘米=mid(a,instr(a,".")+1)1年前查看全部
- VB测试题 求具体步骤！在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，它们的高、宽分别为3
VB测试题 求具体步骤！
在名称为Form1的窗体上画两个文本框，其名称分别为Text1和Text2，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求： 1） Text2可以显示多行文本，且有垂直和水平两个滚动条； 2）运行时在Text1中输入的字符都显示为“*”。运行后的窗体如图所示。
bykuh1年前1 -
糖果太空 共回答了20个问题
|采纳率95%新建一个工程，然后放上2个Textbox窗体属性为
text1的属性为
text2的属性为
这样就行了
望采纳。。。。
1年前查看全部
- c# 怎么能让文本框中只能输入正负数字(包括小数),加减乘除号,还有英文下的小括号?能都写在ONKEPRESS中么?
游吟墨1年前1
-
fdfkas 共回答了17个问题
|采纳率82.4%可以写在ONKEPRESS事件中,你上网搜搜找个js的正则表达式不就可以了么,按照你说的验证要求,正则表达式估计有些长,只要正则表达式写好了,验证就简单了1年前查看全部
- VB问题编写随机生成一个6位正整数，显示在一个文本框中，分离出其中的每一位数字，存放在一个数组中，并将其中的偶数数字加1
VB问题编写
随机生成一个6位正整数，显示在一个文本框中，分离出其中的每一位数字，存放在一个数组中，并将其中的偶数数字加1后形成一个新6位数，显示在第二个文本框中。
例如：生成643501，分离出1，0，5，3，4，6，偶数加1后，新的6位数是：753511。
水001年前1 -
微笑吧朋友 共回答了24个问题
|采纳率83.3%Private Sub Command1_Click()
Dim a(1 To 6) As Integer
Randomize
Text1.Text = Int(Rnd * 900000) + 100000
Text2.Text = ""
For i = 1 To 6
a(i) = Mid(Text1.Text, i, 1)
If a(i) Mod 2 = 0 Then
Text2.Text = Text2.Text & a(i) + 1
Else
Text2.Text = Text2.Text & a(i)
End If
Next
End Su1年前查看全部
- vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?
vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?
我写了一段代码：
Dim midd As String
For i = 1 To Len(Text1.Text)
If mid(Text1.Text,i,1) = " " Then
List1.AddItem c
c = ""
Else
c = c + mid(Text1.Text,i,1)
End If
Next
可就是最后的一组单词不能截取出来,为什么?感动总在不经意间1年前1 -
杰基_rr 共回答了12个问题
|采纳率91.7%你好;因为循环结束后,最后一组单词没有添加到list里的原因,在循环结束的外面添加
List1.AddItem c就ok了,希望能帮到你：）
如果最后一位也是空格的话,就在循环外加个条件：
if c"" then
List1.AddItem c
end if1年前查看全部
- 窗体上有一个名为List1的列表框（允许做多项选择），一个名称为Text1的文本框，三个命令按钮，标题分别为“求全部项目
窗体上有一个名为List1的列表框（允许做多项选择），一个名称为Text1的文本框，三个命令按钮，标题分别为“求全部项目和”，“求选定项目之和”，“删除选定项目”
【要求】
1）程序运行后，将把1～100之间能够被7整除的数添加到列表框中。
2）单击“求全部项目和”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果。
3) 单击“求选定项目之和”按钮，则对List1中的选中的项目进行累加求和，并在文本框中显示计算结果。
4) 单击“删除选定项目”按钮，则删除List1中的选中的项目。
我就是想看看1年前1 -
wolhy 共回答了21个问题
|采纳率85.7%已调试完毕
Private Sub Command2_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then m = m + Val(List1.List(i))
Next
Print m
End Sub
Private Sub Command1_Click()
For j = 0 To List1.ListCount - 1
m = m + Val(List1.List(j))
Next
Text1 = m
End Sub
Private Sub Command3_Click()
Dim n As Integer
Do
If List1.Selected(n) = True Then
List1.RemoveItem n
n = 0
Else
n = n + 1
End If
If n = List1.ListCount Then Exit Do
Loop
End Sub
Private Sub Form_Load()
For i = 1 To 100
If i Mod 7 = 0 Then List1.AddItem i
Next
End Su1年前查看全部
- 在Word中，文本框＿＿＿？A、不可与文字叠放B、文字环绕方式多于两种C、随着框内文本内容的增多而增大D、文字环绕方式只
在Word中，文本框＿＿＿？
A、不可与文字叠放
B、文字环绕方式多于两种
C、随着框内文本内容的增多而增大
D、文字环绕方式只有两种
（有简要文字说明最佳）
去大连看海1年前1 -
忆鸢 共回答了14个问题
|采纳率92.9%BC，都可以设置的1年前查看全部
- ExtJS 取文本框值,小数点后六位.怎样判断, 例如,0.1234567, 这个就提示.小数点后面超过6位
我是谁我不知道1年前1
-
chouge1234 共回答了23个问题
|采纳率100%用了ExtJS,还要自己去判断,有毛病啊..Ext.form.NumberField啊.
new Ext.form.NumberField({
allowDecimals:true,
decimalPrecision:6//小数点后位数
})1年前查看全部
- 题型:问答/综合题（将你的答案在下面的文本框输入）
题型:问答/综合题（将你的答案在下面的文本框输入）
内容:
Directions:For this part you are allowed 30 minutes to write a composition on What do I plan for my career?(我的职业生涯规划).You should write at least 80 words according to the suggestions given below in Chinese.What do I plan for my career?
答:db_zl1年前1 -
四大已空 共回答了19个问题
|采纳率94.7%提示：这个部分你将有30分钟的时间来完成一篇主题为“我的职业生涯规划”的作文.根据下面给出的中文建议,你至少要完成80个字（单词）.
怎样规划我的事业!1年前查看全部
- VB如何求补集问题假设有4个文本框,如果四个文本框的内容只能为“1”“2”“3”“4”其中的一个数字,已知其中三个,如何
VB如何求补集问题
假设有4个文本框,如果四个文本框的内容只能为“1”“2”“3”“4”其中的一个数字,已知其中三个,如何自动生成第四个内容,就是如何求补集的问题童话里的天使1年前1 -
薄醉 共回答了15个问题
|采纳率86.7%程序解决数学问题常常是遍历,即逐个比较.
Dim num(1 To 4) As Integer
Dim i As Integer
'以输入的值为索引,1表示该数字已经输入.最后只要检查哪个元素的值为0即可
num(Val(Text1.Text)) = 1
num(Val(Text2.Text)) = 1
num(Val(Text3.Text)) = 1
For i = 1 To 4
If num(i) = 0 Then
Text4.Text = i
Exit For
End If
Next1年前查看全部
- vb题 文本框1.2输入两个数值,计算这两个数字中间所有数字的和（包括这两个数字）,
咖啡点心1年前1
-
jiangxidai_2005 共回答了21个问题
|采纳率85.7%'文本框1和2的中的两个数值的大小关系任意
Private Sub Command1_Click()
Text3 = (Val(Text1) + Val(Text2)) * (Abs(Val(Text1) - Val(Text2)) + 1) / 2
End Su1年前查看全部
- 在Input文本框中如何显示javascript的值
在Input文本框中如何显示javascript的值
在中
value是javascript中的值.time
function time1()
{
var now,n,y,r,h,m,s;
now=new Date();
n = now.getYear();
y = now.getMonth()+1;
r = now.getDate();
h = now.getHours();
m =now.getMinutes();
s = now.getSeconds();
nn=0;
if(y==3||y==4||y==5||y==6||y==7) {n=n-1; nn=n+1;y="上半学期";}
else if(y==9||y==10||y==11||y==12){nn=n;n=n-1;y="下半学期";}
else if(y==1){nn=n-1;n=n-2;y="下半学期";}
else if(y==2||y==8){nn=y;y="系统维护中.";}
if(rlewushenqi1年前1 -
sh630901 共回答了22个问题
|采纳率95.5%楼主是想在div中填入值还是在input中填入值啊?
假设HTML代码如下
如果你想在input中填入值,如下：
document.form1.data.value = '我就是填入的值';
或者
document.getElementById('form1data').value = '我就是填入的值'';
如果你想在div中填入值,如下：
document.getElementById('time').innerHTML = '我就是填入的值'';
祝楼主成功!1年前查看全部
- vb高手来1．编写程序计算：1+1/2+1/3+……+1/(n-1)+1/n。（n的值通过一文本框输入） （必做）2.
vb高手来
1．编写程序计算：1+1/2+1/3+……+1/(n-1)+1/n。（n的值通过一文本框输入） （必做）
2. 编写程序计算：1+a+a*a+a*a*a+……+a*a*……*a。（n和a通过文本框输入）
3. 编写程序计算：输入三数A，B，C，按从大到小输出。 （必做）
4．编写一程序分别求1∽100之间的所有奇数和偶数之和。
5. 打印出100至999之间的所有“水仙花”数。所谓“水仙花”数，是指一个3位数的整数，其各位数字的立方和等于该数的值。如：371=27+343+1。（必做）
6．编写一窗体程序，在窗体上有两个文本框，一个框作为输入文字，当单窗体时，另一个文本框将输入的文字反向显示。
lzlwyy5201年前1 -
yangpanfei 共回答了21个问题
|采纳率90.5%1、for i=1 to n:sum=sum+1/i:next
2、y=1:sum=1:for i=1 to n:y=a*y:sum=sum+y:next
3、如果产生随机数好做，现在固定变量的话，比较麻烦。
4、for i=1 to 100:if i mod 2 =1 then: Ji=ji+i:else:Ou=ou+i:next
5、for i=100 to 999:if left(i,1)*left(i,1)*left(i,1)+mid(i,2,1)*mid(i,2,1)*mid(i,2,1)+right(i,1)*right(i,1)*right(i,1)=i then print i:next
6、a=text1:text2="":do while len(a)>0:text2=right(a,1):a=left(a,len(a)-1):loop1年前查看全部
- VB如何从一个文本框中随机提取内容
VB如何从一个文本框中随机提取内容
有3个文本框和一个按钮
text1中有N行文本，需要的是点击 COMMAND1后，在text2中随机提取text1中的内容重新排列组合（所有行的内容，但不能有重复）。
而text3中的数字，就是要排列的组合数量（这个功能可有可无）
微笑着一路歌来1年前1 -
1210 共回答了23个问题
|采纳率95.7%这个弄法有挑战性，如果直接随机提取的话，很可能绕来绕去都是重复的，说不定运行了十天半月也没个结果。所以应该先把所有的可能的组合都罗列出来，再随机选取几组。1年前查看全部
- VB编程题目单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和
VB编程题目
单击按钮随机产生5个0-9之间不同的整数并排序,试求出5个数能组合的所有5位数显示在文本框中,并求出最大数和最小数,以及它们的差,显示在标签中.谁是我的传说1年前1 -
飘洒的回忆 共回答了27个问题
|采纳率96.3%Dim a(5) As Double
for i= 1 to 5
a(i)=fix(rnd*10)
next i
For i = 1 To 4
For j = 1 To 5 - i
If a(j) < a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
Next j
Next i
然后拿五个分别赋值a1到5,转化成字符
这样就可以排列了,最大最小就是正序和倒序排列,上课了,不打了1年前查看全部
- Javascript问题求解1． 编写页面：页面内包含一些自定义的文本内容，并提供一个文本框由用户输入全文检索内容。2．
Javascript问题求解
1． 编写页面：页面内包含一些自定义的文本内容，并提供一个文本框由用户输入全文检索内容。
2． 创建一个按钮，并定义按钮的点击事件。
3． 当用户点击按钮时，查找页面内包含用户输入内容的文本，并变为红色显示。
Hungry1231年前1 -
1972我的爱 共回答了15个问题
|采纳率100%告诉你一个简单的方法
第一步 点击按钮获取需要查找的文本
第二步 用replaceall("","") replaceall("","") 替换掉之前查找时所有的标签
第三步 用replaceall("查找的文本","查找的文本") 替换需要查找的文本 。
ok1年前查看全部
- 英语翻译两个文本框 两个按钮 一个按钮名（词典） 另一个（例句）文本框一个用来输入词 另一个显示词典或者例句
WFCHA1年前1
-
nifan333 共回答了16个问题
|采纳率87.5%具有词典功能的程序岂能是几句代码所胜任的?这事恐怕要收费才有人做.——这只是参考意见哈1年前查看全部
- 在Word中怎么把文本框的矩形改为椭圆角?
inqwen1年前1
-
麦克盐 共回答了16个问题
|采纳率93.8%在“绘图→自选图形→基本图形”中选圆角矩形,然后右键“添加文字”即可1年前查看全部
- js计算问题如：a b c d 几个文本框,a=b*c*d.如果D为0或空,a=b*c,如果b或c其中一个为0或空,则a
js计算问题
如：a b c d 几个文本框,a=b*c*d.如果D为0或空,a=b*c,如果b或c其中一个为0或空,则a=空.一个时时计算函数.望您帮我写一下.
function js(){
var shuliang1=document.getElementById("shuliang1").value;
var danjia1=document.getElementById("danjia1").value;
var pingfang1=document.getElementById("pingfang1").value;
if(pingfang1=="0"||pingfang1==""){
document.getElementById("jie1").value=shuliang1*danjia1;
}else{
document.getElementById("jie1").value=shuliang1*danjia1*pingfang1;
}
就是这段代码,我想实现,如果danjia1或者shuliang1为空,jie1=""鸿雁在云ldsll1年前1 -
风城落寞 共回答了22个问题
|采纳率86.4%//先取出文本框的value 分别乘1作为函数的参数 返回a
function calculate(b,c,d) {
if(!b || !c) return '';
var a=b*c;
if(!d) return a;
return a*d;
}
我的函数都写好了 你就不能看看? 也不能自己百度hi找我?1年前查看全部
- 一个简单的程序填空.窗体上有一个命令按钮Command1和文本框Text1,程序运行时在Text1中输入不超过100个字
一个简单的程序填空.
窗体上有一个命令按钮Command1和文本框Text1,程序运行时在Text1中输入不超过100个字母的字符串,单击命令按钮,将文本框中的字符按其ASCII码值由小到大重新排列,并在Label1上显示排序后的字符串.
空格的地方应该怎样填?请知道的朋友帮帮忙,
Private Sub Command1_Click()
Dim A(100) As String * 1,str1 As String,T As String
Dim I As Byte,J As Byte,P As Byte,n As Byte
Str1=Text1.Text：n=Len(str1)
For I = 1 To n
A(I) = ____________
Next I
For I = 1 To n-1
P = I
For J = I + 1 To n
____________
Next J
If PI Then ____________
Next I
For I = 1 To n
____________
Next I
End Subcz__131年前1 -
泪飞淡雅 共回答了15个问题
|采纳率86.7%Private Sub Command1_Click()
Dim A(100) As String * 1,str1 As String,T As String
Dim I As Byte,J As Byte,P As Byte,n As Byte
str1 = Text1.Text:n = Len(str1)
For I = 1 To n
A(I) = Mid(str1,I,1)
Next I
For I = 1 To n - 1
P = I
For J = I + 1 To n
If A(P) > A(J) Then P = J
Next J
If P I Then T = A(I):A(I) = A(P):A(P) = T
Next I
For I = 1 To n
Label1 = Label1 & A(I)
Next I
End Su1年前查看全部
- vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
PLABECK1年前1
-
夏天是这样 共回答了15个问题
|采纳率80%Public Function 偶数(ByVal N&) As Boolean
偶数 = (N Mod 2 = 0)
End Function
调用函数过程:
MsgBox 偶数(val(text1.text))1年前查看全部
- vb统计在一个文本框内各英文单词出现的次数
vb统计在一个文本框内各英文单词出现的次数
统计在一个文本框内各英文单词出现的次数（不区分大小写）,并按英文字母的先后顺序输出各个单词与其对应的出现次数,要求将统计个单词出现的运算编写为过程.程序界面自定.love_mosmosquito1年前1 -
scad 共回答了14个问题
|采纳率100%'把下面代码复制到窗体,添加1个list 和一个command按钮运行就可以了,和一个文本框,数据输入在文本框里
Private Type English
word As String
count As Long
End Type
'判断是不是英文
Private Function En(ByVal s As String) As Boolean
If s = "" Then En = False:Exit Function
s = LCase(s)
For i = 1 To Len(s)
a = Asc(Mid(s,i,1))
If a < 97 Or a > 122 Then En = False:Exit Function
Next
En = True
End Function
'统计数组内各个英文出现次数
Private Function TongJi(ByVal T_txt As String) As English()
s = Split(T_txt," ")
n = 0
Dim English() As English
ReDim English(0)
For i = 0 To UBound(s)
If s(i) "" And En(s(i)) = True Then
temp = False
For j = 0 To UBound(English)
If English(j).word = "" Then
English(j).word = s(i):English(j).count = 1:Exit For
ElseIf English(j).word = s(i) Then
temp = True:English(j).count = English(j).count + 1:Exit For
End If
Next
If temp = False Then
ReDim Preserve English(n):English(n).word = s(i):English(n).count = 1:n = n + 1
End If
End If
Next
TongJi = English
End Function
Private Sub Command1_Click()
Dim e() As English
e = TongJi(Text1)
Cls
For i = 0 To UBound(e)
If e(i).count > 0 Then List1.AddItem e(i).word & " 出现过：" & e(i).count & " 次"
Next
End Su1年前查看全部
- PPT 英文排版问题PPT制作过程中插入文本框,在文本框中输入英文经常会出现一个英文单词在换行时被截成两段,也就是说它不
PPT 英文排版问题
PPT制作过程中插入文本框,在文本框中输入英文经常会出现一个英文单词在换行时被截成两段,也就是说它不会识别这是一个单词,衔接出现了问题．那如何才能解决这个英文排版问题呢?蛛蛛zxc1年前3 -
dglicc 共回答了22个问题
|采纳率90.9%如果出现这种情况,可能是你的ppt没有装自动语法、拼写纠正功能吧?实在不行,你就手动了,把文本框拉长一点～1年前查看全部
- 正则表达式 各种符号表示,比如,在文本框只能输入数字,大写字母,小写字母,特殊符号,英文加数字,等等
小犀牛1年前1
-
leidianfengyun 共回答了20个问题
|采纳率85%数字 d
大写 [A-Z]
小写 [a-z]
特殊 [^a-zA-Z0-9]
英文+数字 [a-zA-Z0-9]
是问这个么,不太清楚你问什么1年前查看全部
- 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name
在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1）,然后编写如下两个事件过程：
Private Sub Command1_Click()
a = Text1.Text + Text2.Text
b = Text1.Text * Text2.Text
Print a; b
End Sub
Private Sub Formm_Load()
Text1 .Text = ""
Text2 .Text = ""
End Sub
程序运行后,在第一个文本框（Text1）和第二个文本框（Text2）中分别输入3和4,然后单击命令按钮,则输出结果为( C ).
A) 7 12 B) 34 3*4 C) 34 12 D) 出错跟你玩到底881年前1 -
sleepysalt 共回答了13个问题
|采纳率84.6%按照此程序运行,正常结果为D 出错.如果想不出错的话并且得到第三个答案的话就为
a = Text1.Text + Text2.Text
b = Str(Val(Text1.Text) * Val(Text2.Text))
Print a; b
VB里面的+号有连接符一用,你没有定义变量AB,也没有转换就是连接符的用处.
所以会等于34
如果想得到A）7 12的答案则为
a = Str(Val(Text1.Text) + Val(Text2.Text))
b = Str(Val(Text1.Text) * Val(Text2.Text))
Print a;1年前查看全部
- 表达式（x-2）!+(x-3)!+······+(x-N)!,N,X分别输入到2个文本框中,请高手看看我的程序什么地方错
表达式（x-2）!+(x-3)!+······+(x-N)!,N,X分别输入到2个文本框中,请高手看看我的程序什么地方错了
z = 0 s = 1 N = Val(Text1.Text) x = Val(Text2.Text) For i = 1 To N - 1 Do i = i + 1 m = x - i s = m * s Loop While m = 1 z = z + s Next i Label4.Caption = Str(z）hongli_zhang1年前1 -
chai1111 共回答了23个问题
|采纳率91.3%一段时间没看VB了,你试试这段.Private Sub Command1_Click() Dim m As Long,n As Long,f As Long x = Val(Text1.Text) n = Val(Text2.Text) If x < n Then '判断,如果x1年前查看全部
- c#! 如何判断文本框中的一串文本中是否含有某个字母或标点符号
c#! 如何判断文本框中的一串文本中是否含有某个字母或标点符号
例如21312.2125 ,如何判断文本框中的这组字符串是否含有点号“.”,急,在线等!
stocks23381年前1 -
希意 共回答了18个问题
|采纳率83.3%假如文本框中的文本为Text.
if（Text.Contains（"."））
{
MessageBox.Show（"文本含有 ."）.
}1年前查看全部
- 使用VB编写设计计算语文、数学、英语这三门课程平均成绩的程序,利用文本框作数据的输入和输出
baicou1年前2
-
fen0099 共回答了19个问题
|采纳率100%楼上太长了...
四个文本框,前三个输入,最后一个输出
一个按钮,按钮的单击响应代码如下:
Private Sub Command1_Click()
Dim pingjun As Double
pingjun = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3
Text4.Text = pingjun
End Su1年前查看全部
- 阅读下面的短文，并从下面的文本框中为本文选择恰当的段落大意。
阅读下面的短文，并从下面的文本框中为本文选择恰当的段落大意。
? Sports can help you keep fit and get in touch with nature. However, whether you are on the mountains, in the rivers, or on the grassland, you should know that your sport of choice might have great influence on the environment.
② Some sports are resource-hungry. Golf, as you may know, eats up not only large areas of countryside, but also tons of water. Besides, all kinds of harmful things and a lot of energy are used to keep its courses(球场)，This leads to serious environmental problems. For example, in Portugal and Spain, golf is considered to be the most important reason for water shortage(短缺）io some areas.
③ There are many environment-friendly sports. Power walking is one of them that you could do today. You don’t need anything special but a good pair of shoes; and you don’t have to worry about nature and your money. Simple and free, power walking -can also keep you fit. If you often walk, it will be good for your heart and bones.
④Nowadays more and more people choose to play "green sports". They play sports outdoors, in the countryside or other open spaces. There is no special things needed. And best of all, it’s free.
小题1:Paragraph ?：______________
小题2:Paragraph ②:______________
小题3:Paragraph ③:______________
小题4:Paragraph ④:______________蓝云飘飘1年前1 -
zhenhuass 共回答了22个问题
|采纳率86.4%小题1:D
小题1:C
小题1:B
小题1:A
小题1:从这段的you should know that your sport of choice might have great influence on the environment.可知运动会对环境造成破坏。选D。
小题1:从这段的句子：Some sports are resource-hungry.和后面举的例子，可知C正确。
小题1:从这段的第一句话：There are many environment-friendly sports.可知很多运动是环保的。选B
小题1:从这段的句子：Nowadays more and more people choose to play "green sports"可知运动现在越来越受欢迎。选A1年前查看全部
- 做一个表单,理解大小写转换函数.在文本框中输入文本串,按“转大写”按钮,文本中的英文字母变为大写,
你是Z051年前1
-
mingjuan222 共回答了23个问题
|采纳率95.7%其实就是做一个JS.
注：这个是一个模板（雏形）,没有深入判断输入的是否是字母.1年前查看全部
- \在Word编辑环境中，不可以对（）编辑。 A、艺术字 B、文本框中的文字 C、图片中的文字 D、表格中的文字
冰叶20071年前1
-
aiaiyuli 共回答了27个问题
|采纳率92.6%C：图片中的文字
因为A B D这些在word里面都可以操作并且完成，而C是不行的，图片插入word里面是不能被编辑的，希望能帮到你。1年前查看全部
- 我想设计一个vb计算器程序,只能用小键盘输入,只有两个文本框,一个是当前输入数,一个是累计数,
我想设计一个vb计算器程序,只能用小键盘输入,只有两个文本框,一个是当前输入数,一个是累计数,
按“+”号键就确认一笔数,当前输入的文本框就为空,累计框就加计为新的累计数,当按回车键后也与“+”号键一样,但还要多一项功能就是结束本组数字的计算,再输入的数字即为新的数字了.不要有乘、除法,只要加减法,即键盘上只认0~9,小数点、+、－、回车、退格键.其他的键一律不认.
现在的问题是,我按+号当成了数字输入,不确认为加号.
Private Sub Command1_Click()
Text2.Enabled = False
Text2.Text = Val(Text1.Text) + Val(Text2.Text)
Text1.Text = ""
End Sub澄空蓝蓝1年前1 -
deerest 共回答了19个问题
|采纳率84.2%'Text1输入,Text2结果
Private Sub Text1_KeyPress(KeyAscii As Integer)
Static int1 As Integer
Debug.Print KeyAscii '45-,43+
If KeyAscii = 45 Or KeyAscii = 43 Then
'+,-
If int1 = 0 Then
Text2.Text = Val(Text1.Text)
Else
Text2.Text = Val(Text2.Text) + int1 * Val(Text1.Text)
End If
Text1.Text = ""
int1 = (44 - KeyAscii)
KeyAscii = 0
ElseIf (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0 '取消输入
Else
End If
End Su1年前查看全部
- 强化口语II作业3题号:1 题型:问答/综合题（将你的答案在下面的文本框输入） 本题分数:100内容:Role-play
强化口语II作业3
题号:1 题型:问答/综合题（将你的答案在下面的文本框输入） 本题分数:100
内容:
Role-play the
following situation,and write the dialogue.This time,discuss the problem of
too many cars in the city with your partner.Use the suggestions below or your
own ideas.Suggestions:▲ Provide more efficient public transportation ▲ Arrange
car pools ▲ Make gasoline more expensive ▲ Encourage people to ride bicycles
Start like this:“I think there are too many cars in this city.”
要根据上面的提示,要求一段英语对话!求各位大大,大江东去浪滔尽1年前1 -
液态ww 共回答了35个问题
|采纳率94.3%这个为啥要找别人的,自己写一段就可以了,条件也不是很复杂,主要是让你和你搭档来一段关于现在城市车辆过多,提倡环保之类的内容,也很容易写的,给你开个头
A:Hello,B
B:Hi!
A:I've naver thought there would be so many cars in our city
B:yes,it is
`
`
`
就这方面的内容往下写一段就可以了,还是很容易的1年前查看全部
- 在Outlook中，在新邮件的“抄送”文本框中输入的多个电子信箱的地址之间，应用（ ）作为分隔。
在Outlook中，在新邮件的“抄送”文本框中输入的多个电子信箱的地址之间，应用（ ）作为分隔。
A、分号
B、逗号
C、冒号
D、空格
zh9410261年前1 -
yy上翠花 共回答了11个问题
|采纳率90.9%A 和 B 都行。1年前查看全部
- 求计算机软件技术基础答题答案设计窗体上有文本框\按钮\;列表框各一个,在文本框中输入任意一个英文句子,单击按钮,程序将该
求计算机软件技术基础答题答案
设计窗体上有文本框按钮;列表框各一个,在文本框中输入任意一个英文句子,单击按钮,程序将该句分解为单词,每一个单词作为一个条目添加到列表框中.19911271年前1 -
boclv 共回答了17个问题
|采纳率100%如果定义的列表框ID为comboBox1,文本框ID为textBox1,按钮ID为button1,则button1_Click为button1的点击事件.
C#代码如下
private void button1_Click(object sender,EventArgs e)
{
comboBox1.Items.Clear();
comboBox1.Items.AddRange(textBox1.Text.Split(new string[] { " " },StringSplitOptions.RemoveEmptyEntries));
}
//OK,如果你用的C#再好不过,用VB也很容易修改,如果是Java 或C的话,那你看着改吧
//另,以后问个问题 记得给个悬赏,挂个零蛋不嫌寒碜人吗1年前查看全部
- 求出介于正A,B之间所有包含四个因子的数.如A=1000,B=2000,1004:2,4,251,502两个文本框,一个
求出介于正A,B之间所有包含四个因子的数.如A=1000,B=2000,1004:2,4,251,502两个文本框,一个列表
,三个按钮
只有4个横眉冷对千夫所指1年前1 -
指尖纱 共回答了25个问题
|采纳率92%请楼主补充一下, 是找出只包含4个因子的数,还是包含大于等于4个因子的数..
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then Exit Sub
Dim i%, j%, m%, n%, s%()
For i = Val(Text1) To Val(Text2)
For j = 2 To Sqr(i)
If i Mod j = 0 Then m = m + 1
If m > 4 Then Exit For
Next
If m = 4 Then
ReDim Preserve s(n)
s(n) = i
n = n + 1
End If
m = 0
Next
List1.Clear
For i = 0 To UBound(s)
List1.AddItem s(i)
Next
End Sub
Private Sub Form_Load()
Text1 = "1000"
Text2 = "2000"
List1.Clear
End Su1年前查看全部
- 按要求编写以下程序。（1）界面设计 （2）程序代码1. 编写程序，利用文本框检查用户的
按要求编写以下程序。
（1）界面设计
（2）程序代码
1. 编写程序，利用文本框检查用户的口令，验证口令的正确，并给出相应的提示信息。要求用户在输入口令后必须按Enter键，如果文本框中输入的内容和指定内容(假设正确口令为：“123456”)相同，可使用Msgbox()函数显示“口令正确！”的提示信息，否则当口令输入不正确时，可使用Msgbox()函数显示“口令错误！请重新输入口令”的提示信息。为了防止输入口令时显示口令造成泄密，应设置输入口令的文本框的PasswordChar属性值为“*”，使得在文本框中输入的任何内容均显示为“*”。
ssll191年前1 -
flywbbt101 共回答了17个问题
|采纳率94.1%按照要求，是要自己完成的
1年前查看全部
- vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
vb2005ouy_gg1年前1 -
yemao1008 共回答了19个问题
|采纳率94.7%假设文本框为TEXT1,标签为LABEL1,函数代码如下：
public sub testnum()
dim x as long
x=cint(text1.text)
if x mod 2 = 1 then
label1.caption="奇数"
else
label1.caption="偶数"
end if
end su1年前查看全部
- 怎样让文本框只能输入指定长度的小数
怎样让文本框只能输入指定长度的小数
整数部分和小数部分长度也要判断.比如222.22 整数部分是3位,小数部分是2位弯若淡眉1年前1 -
番茄熊 共回答了16个问题
|采纳率75%可以在h:inputText 添加validator 属性,并在相应的manageBean 里写相应的小数验证方法1年前查看全部
- 设计程序计算圆周长和面积～利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对
设计程序计算圆周长和面积～
利用文本框和命令按钮控件设计简单程序,要求输入圆的半径,分别计算出圆周长和圆面积,如图所示.对输入的圆半径数据进行合法性检验,限制为数字字符,不能为空,值不得超过999.输出的面积和周长保留小数二位.tylz08981年前1 -
chaishilong 共回答了20个问题
|采纳率95%没看到你图是什么样的,我照你题目的意思,答案如下
Private Sub Command1_Click()
Dim i As Variant
Dim j As Variant
Dim k As Variant
k = Val(Text1.Text)
Const PI = 3.14159
If k > 0 And k < =999 Then
i = 2 * PI * k
j = PI * k ^ 2
Print "圆的周长是：" & Round(i,2)
Print "圆的面积是：" & Round(j,2)
Else
MsgBox "请输入数值并且不能大于999",,"提示"
End If
End Sub
以上经上机调试成功.1年前查看全部
- Delphi EDIT文本框内的数字,四舍五入之后,保留两位小数
Delphi EDIT文本框内的数字,四舍五入之后,保留两位小数
我这个合格率现在 是 23.076923.很多个小数位.
怎么让它自动显示为 23.08 保留两位小数,四舍五入的.
Edit5.Text:=FloatToStr(StrToInt(Edit4.Text) / StrToInt(Edit1.Text)*100);
这是我的现代码,请帮我修改一下..qq759161年前1 -
静悄悄的云 共回答了13个问题
|采纳率92.3%Edit5.Text:=Format('x=%.2f', [StrToInt(Edit4.Text) / StrToInt(Edit1.Text)*100]);
//.2f表示2位小数浮点数1年前查看全部
- 有两个文本框 第一个输入一个任何数字表达式,第二个 文本框 得到 结果
有两个文本框 第一个输入一个任何数字表达式,第二个 文本框 得到 结果
第一个文本框里面数字表达式可以包括多个括号、小数、加减乘除miss_right1年前1 -
bsh057318 共回答了11个问题
|采纳率72.7%用js的eval来处理是比较好的方法:
var oldstr=document.getElementById("第一个文本框的Id").value;
document.getElementById("第二个文本框的Id").value=eval(oldstr);1年前查看全部
- 1.设计一个表单,每次按增加按钮,文本框数值加1,文本框初始值为0.写代码就好.
1.设计一个表单,每次按增加按钮,文本框数值加1,文本框初始值为0.写代码就好.
2.编程输出1至100的自然整数中个位数为0的数值,并计算其个数.（可用right()函数取个位数判断是否为0）
第一道题是正整数羽羽_ff1年前1 -
知味者 共回答了12个问题
|采纳率91.7%1.假如文本框为text1,默认的value为0,增加的click代码为：
thisform.text1.value=thisform.text1.value+1
2.
clear
s=0
for i=1 to 100
if right(alltrim(str(i)),1)=="0"
alltrim(str(i))+"的个位数为0."
s=s+1
endif
endfor
"1至100的自然整数中个位数为0的数有"+alltrim(str(s))+"个."1年前查看全部
- 英语口语综合题，谁来帮帮回答？题号:1 题型:问答/综合题（将你的答案在下面的文本框输入） 本题分数:100内容:Giv
英语口语综合题，谁来帮帮回答？
题号:1 题型:问答/综合题（将你的答案在下面的文本框输入） 本题分数:100
内容:
Give answers to the following questions. Your grades will depend on your statements so try to organize your thoughts or ideas to the point but be brief at the same time.
Suppose your friend invites you to attend his/her birthday this Sunday, but you cannot make it. How would you decline this invitation politely? Say something that you are gonna to do on Sunday.
答:
sara_xi1年前1 -
莱通多 共回答了18个问题
|采纳率83.3%Happy birthday to you first.I am glad you invite me to your birthday party and i 'd like to attend,but I feel sorry very much,this sunday I already promise my grandma I go to see her.I can't eat my words to grandma.1年前查看全部
- 限制文本框只能输入两位小数怎么限制只能输入两位小数啊?下面的代码是限制只能输入数字和一个小数点function clea
限制文本框只能输入两位小数
怎么限制只能输入两位小数啊?
下面的代码是限制只能输入数字和一个小数点
function clearNoNum(obj){
x05//先把非数字的都替换掉,除了数字和小数点
x05obj.value = obj.value.replace(/[^d.]/g,"");
x05//必须保证第一个为数字而不是小数点x05
x05obj.value = obj.value.replace(/^./g,"");
x05//保证只有出现一个小数点而没有多个.
x05obj.value = obj.value.replace(/.{2,}/g,".");
x05//保证小数点只出现一次,而不能出现两次以上
x05obj.value = obj.value.replace(".","$#$").replace(/./g,"").replace("$#$",".");
这样写可以：
//把小数点后面超过两位的数字替换掉,也就是保留两位小数
x05 var strs = "";
x05 var midd = "";
x05 var count = 0;
x05 for(var i=0;ifag44d7sf5d451年前1 -
vv090 共回答了16个问题
|采纳率81.3%正则表达式的Pattern是这样的："^\d+.\d{2}"
^ 表示是开头,就是字符串开头位置
\ 表示的是转义的
所以\d就是d 表示任意一个数字 而在后面加一个+表示 1个或者多个数字
.就是小数点
\d{2} 大括号内包含2意思就是有2个任意的数字.
这样符合这个模型的就是你所需要的两位小数的.
所以你在js中用正则表达式进行对用户输入值的判断,判断模板就是这个.
然后判断js中函数的返回值,如果是true就是符合,那么进行下一步操作
如果为false,那么将文本框的value重置为“”,也可以再增加alert函数提示用户输入格式不对.1年前查看全部
- 用vb编写任意两个实数的和按下命令按钮,计算第一个文本框中的实数加上第二个文本框的实数和显示在第三个文本框中
yanxipku1年前1
-
hzx235026 共回答了12个问题
|采纳率83.3%private sub command1_click()
if isnumeric(text1.text) AND isnumeric(text2.text) then
text3.text=cdbl(text1.text)+cdbl(text2.text)
else
msgbox "文本框必须输入数字!",vbokonly,"提示"
end if
end sub
希望对你有帮助!1年前查看全部
- 设计一个计算一元二次方程根的程序：从文本框输入一元二次方程的三个系数：A,B,C,计算并输出方程的两个
lfq20061年前1
-
三家村村民 共回答了16个问题
|采纳率93.8%#include
#include
void main()
{
float a,b,c;
float disc,x1,x2,realpart,imagpart;
printf("请输入系数a、b、c（以空格隔开）：n");
scanf("%f %f %f",&a,&b,&c);
printf("The equation is：%fx^2+%fx+%f=0n",a,b,c);
printf("The root of the equation is:n");
if(a==0) /*二次项系数为0,即为一元一次方程的情况*/
{
if(b==0&&c!=0)
printf("无解!n");
else if(b==0&&c==0)
printf("解是任意的.n");
else
printf("%fn",(-c)/b);
}
else /*接下来,是a不为0的情况*/
{
disc=b*b-4*a*c;
if(disc==0) /*判别式等于0时*/
printf("%fn",(-b)/(2*a));
else if(disc>0) /*判别式大于0时*/
{
x1=(-b+sqrt(disc))/(2*a);
x2=(-b-sqrt(disc))/(2*a);
printf("%f and %fn",x1,x2);
}
else /*最后是判别式小于0,有两个复数解*/
{
realpart=-b/(2*a);
imagpart=sqrt(-disc)/(2*a);
printf("complex roots:n");
printf("%f+%fin",realpart,imagpart);
printf("%f-%fin",realpart,imagpart);
}
}
}1年前查看全部
大家在问
- 1（2008•沙坪坝区模拟）两个合数的和是14，它们的积最大是______．
- 2英语翻译1-NEW drill pipe acc.To API and RP7G 5" O.D nominal size
- 3下列调查中，须用普查的为______．（填序号）
- 4用什么词语形容霍金第十一册的《向命运挑战》
- 5在倒装句中,down he dumped from the desk 还是down dumped he from the
- 6制造鞭炮的黑火药中含硫,燃烧时的刺激性气味是什么
- 7怎么看书来提高自己的写作和阅读能力?
- 8关于电流强度的概念，下列叙述中正确的有（ ）
- 9过关测试卷的问题1、给括号里内填入适当的字（ ）然大物（ ）然大悟（ ）然泪下（ ）然无存（ ）然起敬（ ）然若失
- 10血液是液体还是固体还是即是固体又是液体?
- 11(2分之1-x)(2分之1+x)(4分之1-x平方)
- 12用1、2、3、4、5、6、7、8、9来填空
- 13急求一篇小学4年级关于chinese new year的英语作文
- 14汽车空调的干燥瓶用英文怎么说?
- 15在平面直角坐标系下,已知A(2,0),B(0,2),C(cos2x,sin2x）,f(x)=向量AB*向量AC