急！急！急！那位大侠传帮忙看一下。

来源：蜘蛛抓取(WebSpider) 时间：2012-04-21 00:24 标签： u大侠
小木虫 --- 500万硕博科研人员喜爱的学术科研平台
&&查看话题
哪位大侠帮忙查一下，这两篇文章，是否已经被SCI收录，评职称急用
Zheng-Zhu Liu, Yuan-Fang Gong, Chuan-Sheng Zhang, Zhi-Xin Fu and Wen-Xiang Zhang
A&&genetic polymorphism and its genetic effects on goat myogenin gene in intron 1.African Journal of Biotechnology Vol. 10(27), pp.
Li-Ying Geng , Chuan-Sheng Zhang , Yang-Yang Li , Ya-Ya Li , Qiu-Yuewang , Hong-Nuan Sun and Xiao-Song Li
The Chicken GGA-Mir-1658* Gene: Seed Region Polymorphisms, Frequency Distribution and Putative Targets, Journal of Animal and Veterinary Advances,):
是都收录在Web of Science里，之前的African Journal of Biotechnology是SCI，但现实是SCI-EXPANDED。不知道你们单位是否承认SCI-E？
African Journal of Biotechnology 到第19期
Journal of Animal and Veterinary Advances 到第2期
这个杂志收录的很奇怪，没有按顺序的，我看了下，前面确实有8期和1期都混着的，但是目前2011年的第9期确实还没收录，而且最新显示的确实是第2期。那个文章我在web of science上还没找到，只是用Google找到了，我也弄不清楚了那位大侠知道下面图中两个字是什么？能告诉我一下吗？急啊！！谢了_百度知道
那位大侠知道下面图中两个字是什么？能告诉我一下吗？急啊！！谢了
我有更好的答案
土,总笔画,部外笔画:8:11 五笔86我不知道是不是这个字! 垭 （垭） yà ㄧㄚˋ ◎ 两山之间的狭窄地方繁体部首:GTTC 笔顺编号:FUOG 仓颉
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁为什么vb老是弹出编译错误 块If没有end if 啊，，急急急啊，，，哪位大侠帮我看看哪里错了，，，高分啊_百度知道
为什么vb老是弹出编译错误 块If没有end if 啊，，急急急啊，，，哪位大侠帮我看看哪里错了，，，高分啊
答案&输入&;输入1-10&输入&;;输入1-10&, 100)y = InputBox(&quot, & 10 Theny = InputBox(&quot, &, &输入&quot, i As Integerx = InputBox(&quot, &;输入&quot, z As I z Thenf = MsgBox(&quot, 100)z = x * yi = InputBox(&;;输入1-10& 10 Thenx = InputBox(&quot,y的乘积&;答案&quot, &quot, y As Integer, 100)If i = z ThenPrint iElseIf i &lt,y的乘积&; 1 Or x &输入x, &quot, 100)If x &lt, f As Integer, &;)End IfIf f = 6 Theni = InputBox(&quot, 100)If y &是否重新输入&提示&;;&输入1-10&输入x; 1 Or y &gtPrivate Sub Command1_Click()Dim x As Integer, 20
提问者采纳
, &quot多处if语句没加end ifPrivate Sub Command1_Click()Dim x As Integer, & 10 Then ‘这里逻辑上来说改成while语句比较好
y = InputBox(&quot, f As Integer, 100)End Ifz = x * yi = InputBox(&quot, y As I;是否重新输入&quot,y的乘积&, &输入x;输入&; 10 Then ‘这里逻辑上来说改成while语句比较好
x = InputBox(&输入1-10&, 100)If i = z Then
Print iElseIf i &;, 100)If y &lt,y的乘积&quot, 100)If x &输入&提示&quot, & 1 Or x &gt, &quot, 100)End Ify = InputBox(&&gt, 20;输入&输入1-10& 1 Or y &)
If f = 6 Then
i = InputBox(&答案&;输入&答案&;输入1-10&, &;;输入1-10& z Then
f = MsgBox(&quot, &, z As Integer, i As Integerx = InputBox(&输入x
ElseIf i && z Then
f = MsgBox(&是否重新输入&, 20, &提示&)
If f = 6 Then
i = InputBox(&输入x,y的乘积&, &答案&, 100)
End IfEnd If为什么这里要两个end if呢，，
提问者评价
谢谢你，，可以了，，我还以为我vb坏掉了
来自团队：
其他类似问题
为您推荐：
其他4条回答
&输入&;, 20, &;;;输入1-10&quot，自己去添加上去Private Sub Command1_Click()Dim x As Integer, &输入&quot, 100)end ifIf y &输入&quot,y的乘积&答案&quot, z As Integervb里if都要有end if配对;输入1-10&提示&;;;;输入1-10&quot, 100)If x &lt, &答案&输入1-10& 1 Or x &)End IfIf f = 6 Theni = InputBox(& 10 Thenx = InputBox(&;输入x;输入x, 100)y = InputBox(&quot, 100)z = x * yi = InputBox(&&gt, & 1 Or y & 10 Theny = InputBox(&输入&quot, &quot,y的乘积&quot, f As I z Thenf = MsgBox(&;, 100)end ifIf i = z ThenPrint iElseIf i &lt, y As Integer, &是否重新输入&quot, i As Integerx = InputBox(&，你没有配对好
代码要有缩进，这是改完的
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer, f As Integer, i As Integer
x = InputBox(&输入1-10&, &输入&, 100)
If x & 1 Or x & 10 Then
x = InputBox(&输入1-10&, &输入&, 100)
y = InputBox(&输入1-10&, &输入&, 100)
If y & 1 Or y & 10 Then
y = InputBox(&输入1-10&, &输入&, 100)
i = InputBox(&输入x,y的乘积&, &答案&, 100)
If i = z Then
If i && z Then
f = MsgBox(&是否重新输入&, 20, &提示&)
If f = 6 Then
i = InputBox(&输入x,y的乘积&, &答案&, 100)
我给你修改了一下，你看行不？
Private Sub Command1_Click()
On Error Resume Next
Dim x As Integer, y As Integer, z As Integer, f As Integer, i As Integer
x = InputBox(&输入1-10&, &输入X&, 100)
If x & 1 Or x & 10 Then GoTo a
y = InputBox(&输入1-10&, &输入Y&, 100)
If y & 1 Or y & 10 Then GoTo b
i = InputBox(&输入& & x & &×& & y & &的乘积&, &输入答案&, 100)
If i = z Then
f = MsgBox(&答案错误,是否重新输入&, vbYesNo + vbCritical + vbDefaultButton1, &警告&)
If f = 6 Then
确实缺end if 你数数有几个if
就应该有几个end if 他们是成对出现的
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 u大侠 的文章

 

随机推荐