Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

很简单的9道ACCESS问题~~快考试了,急丫~~~><

紫竹姑娘  发表于:2010-12-26 13:49:19  
复制

1,where 类别号 in ("A","F")和where((类别号)="A","F")有什么区别?~~
2,让系统随机出两位数的话,一般都会先写 randomize timer ,如果不写会怎样?两位数的写法是“10+int(Rnd*89)”,其中“89”是随便写(78、64可以吗)还是有特定含义的?
3,sub和function的区别~~为毛大都是sub语句很少有function语句..?

4,题目是:检索选修李靖老师课的学生姓名,专业,学号,课程代号和课程名。
答案是:SELECT 学生.姓名, 学生.专业, 学生.学号, 课程.课程代号, 课程.课程名称
FROM 学生, 课程 INNER JOIN 选课 ON 课程.课程代号=选课.课程代号
WHERE ((课程.任课教师)="李靖") );
我编的是:SELECT 学生.姓名, 学生.专业, 学生.学号, 课程.课程代号, 课程.课程名称
from 学生 inner join(课程 INNER JOIN 选课 ON 课程.课程代号=选课.课程代号
)on 学生.学号=选课.学号
两者运行起来不一样,为毛,为毛....
其中课程.课程代号和选课.课程代号之间有一对多的关系,学生跟课程表和选课表没关系...

5,“失去焦点”是么意思。。。
 
6,
代码:sub m()
dim i as integer , x as integer
x=inputbox("输入一个自然数")
for i=2 to x-1
    if x mod i =0 then
    exit for
  end if 
next i
    if x=i then
   msgbox x &"是质数"
else 
  msgbox x &"不是质数"
end if 
end sub
这是课本上的例题,我觉得好别扭...比如说键盘输入3,进入for 循环,i=2,不满足if语句,i只能为2,此时x=3,i=2,两者不相等,输出“x不是质数”@ @矛盾。。哪错了。。
 
 
7,输出能被17整除的数
我想用 msgbox输出,结果他是一个数一个数的蹦。。。能不能用msgbox一下子都输出来?课本上提供的方法是用debug.print 这种立即窗口输出,但是我想用msgbox。。。是不是用debug.print就一定是从立即窗口里输出么
8,在做一道模块题时把数据类型设置错了,结果就无法输出,我表示对long 和 integer无法理解...long 和 integer 和 double 有什么区别。。?
9,模块方面~~
输入一行字符,统计中英文字母和其他字符的个数,sub 语言编写~~

 

Top
煮江品茶 发表于:2010-12-26 15:05:32

1,where 类别号 in ("A","F")和where ((类别号)="A","F")有什么区别?
答:姓名 in ("A","F") 表示:“美女如果的姓氏为A、F都能满足录取的要求。”
    类别号="A","F" 表示:“寻找美女的方法错了。”

 

2,让系统随机出两位数的话,一般都会先写 randomize timer ,如果不写会怎样?两位数的写法是“10+int(Rnd*89

)”,其中“89”是随便写(78、64可以吗)还是有特定含义的?
答:(1)如果不写会怎样,就剃光头,打板子。
    (2)现在有100个帅哥编号从1到100,89、78、64确定帅哥编号产生的上限。

 

3,sub和function的区别~~为毛大都是sub语句很少有function语句..?
答:Sub和Function最大的区别在于Sub只是结婚不生孩子,Function结婚同时生孩子。

 

4,题目是:检索选修李靖老师课的学生姓名,专业,学号,课程代号和课程名。
答案是:SELECT 学生.姓名, 学生.专业, 学生.学号, 课程.课程代号, 课程.课程名称
FROM 学生, 课程 INNER JOIN 选课 ON 课程.课程代号=选课.课程代号
WHERE ((课程.任课教师)="李靖") );
我编的是:SELECT 学生.姓名, 学生.专业, 学生.学号, 课程.课程代号, 课程.课程名称
from 学生 inner join(课程 INNER JOIN 选课 ON 课程.课程代号=选课.课程代号
)on 学生.学号=选课.学号
两者运行起来不一样,为毛,为毛....
其中课程.课程代号和选课.课程代号之间有一对多的关系,学生跟课程表和选课表没关系...
答:你写的SQL把李靖老师搞丢了!

 

5,“失去焦点”是么意思。。。
答:你在将目光注视在黑板上的时候,忽然听到窗外的口哨声,于是你将目光转移到了窗外,这时候黑板就失去了焦

点。黑板失去焦点的时候,通常会引发失去焦点事件,这事件就是一个黑板擦,从老师的手中奋力甩将过来,咣当一

声!正中你含情脉脉的额头。

 

6,代码:
sub m()
dim i as integer , x as integer
x=inputbox("输入一个自然数")
for i=2 to x-1
    if x mod i =0 then
    exit for
  end if
next i
if x=i then
   msgbox x &"是质数"
else
  msgbox x &"不是质数"
end if
end sub
这是课本上的例题,我觉得好别扭...比如说键盘输入3,进入for 循环,i=2,不满足if语句,i只能为2,此时

x=3,i=2,两者不相等,输出“x不是质数”@ @矛盾。。哪错了。。
答:本来你有10枚硬币,你藏了一枚,把其余九枚放进了一个盒子中,然后你对男生说:谁要是一次能从这个盒子中

抓出10枚硬币,就和谁共进晚餐。结果你的约会中不能成功。

 

7,输出能被17整除的数
我想用 msgbox输出,结果他是一个数一个数的蹦。。。能不能用msgbox一下子都输出来?课本上提供的方法是用

debug.print 这种立即窗口输出,但是我想用msgbox。。。是不是用debug.print就一定是从立即窗口里输出么
答:
Sub Y()
dim i as long
dim str as string
for i=1 to 100
    if i mod 17 = 0 then
      str=str & i & chr(10) & chr(13)
    end if
next
end sub
 


8,在做一道模块题时把数据类型设置错了,结果就无法输出,我表示对long 和 integer无法理解...long 和 integer

和 double 有什么区别。。?
答:你有三个大小不等的盒子,integer最小,long次之,double最大。integer可以装一个芭比娃娃,long可以装一

台电视机,double可以装一台冰箱。如果你把冰箱试图装将integer中,那就一定错了。

 

9,模块方面~~输入一行字符,统计中英文字母和其他字符的个数,sub 语言编写~~
答:汉字的Asc码在几个固定的区间内,找到这几个区间的起始与截止的Asc码进行判断即可。如果找不出来,就再磕头作揖,请求帮助。



紫竹姑娘 发表于:2010-12-26 16:06:03

好通俗的回答丫~~~~可是我还是不懂,是不是我太笨了> <

第四个问题:

题目是:检索选修李靖老师课的学生姓名,专业,学号,课程代号和课程名。
答案是:SELECT 学生.姓名, 学生.专业, 学生.学号, 课程.课程代号, 课程.课程名称
FROM 学生, 课程 INNER JOIN 选课 ON 课程.课程代号=选课.课程代号
WHERE ((课程.任课教师)="李靖") );
我编的是:SELECT 学生.姓名, 学生.专业, 学生.学号, 课程.课程代号, 课程.课程名称
from 学生 inner join(课程 INNER JOIN 选课 ON 课程.课程代号=选课.课程代号
)on 学生.学号=选课.学号

WHERE ((课程.任课教师)="李靖") );
两者运行起来不一样,为毛,为毛....
其中课程.课程代号和选课.课程代号之间有一对多的关系,学生跟课程表和选课表没关系...

我加上李靖老师了,但是还是不一样丫不一样,哪出问题了。。

> < Acess要挂了,大家帮帮忙呀~~~~T T



煮江品茶 发表于:2010-12-26 17:38:39

你的解法是对的,答案似乎错了。把你们老师揍一顿去!



紫竹姑娘 发表于:2010-12-26 17:55:16
>o< 答案是我在百度问的,然后我复习的时候自己做了一个,两个运行起来真的不一样>o< 唉,好心人能不能加我QQ,我Q上传你?下周四我们就考试了> <拯救拯救我吧~~~T T我QQ:1649977943

煮江品茶 发表于:2010-12-26 19:31:49
在这个帖子中上传你的实例,我帮你看看。

煮江品茶 发表于:2010-12-26 20:10:04

看看这个实例中的查询:

 

点击下载此附件

煮江品茶 发表于:2010-12-26 20:15:11
如还有不懂的,请参见《有个姑娘叫紫竹》一文。

紫竹姑娘 发表于:2010-12-26 20:42:47

赤裸裸的嘲笑- -好吧...

挺大的一个文件...但是有用的就是那几个表...

查询那部分你可以忽视,那都是我用来练习的。。

你把我百度到的答案查询和我自己做的查询分别运行一下,就看出不一样来了...



紫竹姑娘 发表于:2010-12-26 20:57:23
煮江品茶 发表于:2010-12-26 21:00:01

你的结果对还是百度的结果对呢?

依我看你的结果是对的。网上的、书上的不一定都对,现在山寨的东西很多,要相信自己。



煮江品茶 发表于:2010-12-26 21:05:17
查询35肯定是错的,已经形成了笛卡尔级,与结果相去甚远。你可以到百度上,把写答案的家伙骂一顿。

紫竹姑娘 发表于:2010-12-26 21:07:58

好,谢谢了~~~话说我还有几道关于窗体的编程,不会。。。╮(╯▽╰)╭帮帮忙呗~~~

想想您的孩子,是吧,在这样如火如荼的环境中饱受着煎熬,您怎么忍心,怎么忍心~~对吧~~~

来几道练练笔吧》。。

1,在文本框中输入一串字符,单击去除空格按钮,可以除掉字符串中空格,并把出点空格的字符串在标签中显示。

 首先~~~思路是用for i=1 to i    mid(s,i,1)=" "   关键是那个“去除”是什么代码。。。> <卡住了。。换个方式。。

 我翻了翻课本,发现有个ltrim和left(x,n)函数,试试...编出下面的:

Private Sub Command2_Click()
Dim s As String, i As Integer, t As String
s = Text0.Value
i = 1
Do While i <= Len(s)
    If Mid(s, i, 1) = " " Then
   
    s = RTrim(Left(s, i))

   End If
Loop
MsgBox s
End Sub
╮(╯▽╰)╭ 很显然不对。。。

没思路了。。。

大神,点个睛吧。。。



紫竹姑娘 发表于:2010-12-26 21:14:33

好孩子现在忙考试忙的焦头烂额,哪有空闲去骂人...

老同志,这就是您的不对了,您怎么能教育21世纪的接班人去骂人呢~~~您应当贡献您的绵薄之力,把接班人的问题解答出来,拯救她于水深火热之中,才对吧~~~



煮江品茶 发表于:2010-12-26 21:20:54

去除字符串中的空格,只需要一句代码即可。假设你的窗体上有个文本框,其名曰Text1,我们要去除这个文本框中已输入的字符串中的空格,则:

me.Text1.value=Replace(me.Text1.value," ","")

这样就可以了。



煮江品茶 发表于:2010-12-26 21:22:51
如果还有问题,请另外发贴提问,会有其他朋友帮助你的。我要下了,看会电视去了。

紫竹姑娘 发表于:2010-12-26 21:28:34

>o< 大神 不愧是大神~~~终于做出来了,太神了~~~可是我还想问...这个"me"怎么用...?

您老啥时候有空啥时候过来看看吧,我会不定期的把疑问发上来滴,因为期末考之后还有等级考试> < 这个年算过不好了...

拜谢,拜谢了!~~~



总记录:16篇  页次:1/1 9 1 :