申述:版主,是否扣了我的专家分?

of123 2006-03-31 04:10:59
我做了一个面试问题,楼主发了 300 分。得分贴已经结了,我也在“我得分的问题”中看到了。可是专家分没有加上来。

是否版主怀疑是倒分,把分数扣掉了。

如果是,冤枉啊。
现贴出代码如下(原题请看 http://community.csdn.net/Expert/topic/4653/4653173.xml?temp=.9770166 急急急!!!!朋友面试题目,我不会,谁能帮我看看?(300分!)谢谢)

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Stock Balance"
ClientHeight = 5445
ClientLeft = 45
ClientTop = 330
ClientWidth = 8055
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5445
ScaleWidth = 8055
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 3
Top = 0
Width = 8055
_ExtentX = 14208
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "import"
ImageKey = "import"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "exit"
ImageKey = "exit"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 1680
Top = 4560
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0000
Key = "import"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0454
Key = "exit"
EndProperty
EndProperty
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 495
Left = 3960
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4680
Visible = 0 'False
Width = 1815
End
Begin VB.CommandButton Command3
Cancel = -1 'True
Caption = "E&xit"
Height = 495
Left = 6120
TabIndex = 2
Top = 4680
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "&Import"
Height = 495
Left = 240
TabIndex = 1
Top = 4680
Width = 1695
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "Form1.frx":0770
Height = 3495
Left = 240
OleObjectBlob = "Form1.frx":0784
TabIndex = 0
Top = 840
Width = 7575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim db As DAO.Database
Dim rs As DAO.Recordset

Private Sub Command1_Click()
Dim fileID As Integer, strTemp As String
Dim strPartID As String
Dim strDescription As String
Dim strBalance As String
Dim i As Integer, intChecksum As Integer

db.Execute "delete from stockbalance"
fileID = FreeFile()
Open "C:\interview\stock balance.txt" For Input As #fileID
Do Until EOF(fileID)
Line Input #fileID, strTemp
strPartID = Left(strTemp, 12)
strDescription = Trim(Mid(strTemp, 13, 30))
strBalance = Mid(strTemp, 43)
' Debug.Print strTemp
' Debug.Print strPartID, strDescription, strBalance

rs.AddNew
rs.Fields("part id") = strPartID
rs!Description = strDescription
rs.Fields("stock balance") = strBalance

intChecksum = 0
For i = 1 To 12
intChecksum = intChecksum Xor Val(Mid(strPartID, i, 1))
Next i
rs!chksum = CStr(intChecksum Mod 10)
rs.Update
Loop

rs.Requery

Set Data1.Recordset = rs
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(App.Path & "\stock.mdb")
Set rs = db.OpenRecordset("select * from stockbalance")
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "import"
Command1_Click
Case "exit"
Command3_Click
End Select
End Sub
...全文
314 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2006-04-02
  • 打赏
  • 举报
回复
果然是 bingofei 用了非技术类送分。呵呵,惭愧。错怪斑竹了。

因为临近 5 万分大关,斤斤计较了一点。不好意思。

等破了 5 万分,再散分谢谢大家。
射天狼 2006-04-01
  • 打赏
  • 举报
回复
不是非技术贴子啊。应该有专家分的。


╭════════════════════════════╮
║                            ║
║  免费的学习、交流、源码、工具网站,欢迎大家访问!  ║
║  http://www.j2soft.cn/                ║
╰════════════════════════════╯
迈克揉索芙特 2006-04-01
  • 打赏
  • 举报
回复
这不是等的问题,我的都等10多天了。
我也怀疑是否非技术版的不算专家分。
sstlwg 2006-04-01
  • 打赏
  • 举报
回复
等等看
jackcaixia 2006-04-01
  • 打赏
  • 举报
回复
可能是延迟
fly@ 2006-04-01
  • 打赏
  • 举报
回复
up
空心兜兜 2006-03-31
  • 打赏
  • 举报
回复
应该不会吧!
扣就是扣信誉啊
迈克揉索芙特 2006-03-31
  • 打赏
  • 举报
回复
我的有400多分没进帐,暴风雨说是服务器缓存的问题。
根本不可能的事情,别人给的分都能进帐的。
我找过蝈蝈俊,他说我描述的太简单。后来我就放弃了。
不知道csdn是否故意为难我们,还是Bug。
云路 2006-03-31
  • 打赏
  • 举报
回复
我的星星少得很,你就是红的了,不要着急啊
northwolves 2006-03-31
  • 打赏
  • 举报
回复
To viena:

//OF123兄弟,不必太计较吧.接着抢,呵呵
northwolves(狼行天下)几岁?
OF123是大哥,不是兄弟,论年纪,恐怕是这里的老大了

-------------------
兄弟就是兄和弟.四海之内皆兄弟
tztz520 2006-03-31
  • 打赏
  • 举报
回复
支持楼主的这种态度
viena 2006-03-31
  • 打赏
  • 举报
回复
//OF123兄弟,不必太计较吧.接着抢,呵呵
northwolves(狼行天下)几岁?
OF123是大哥,不是兄弟,论年纪,恐怕是这里的老大了
bbhere 2006-03-31
  • 打赏
  • 举报
回复
好多星星了,咱不在乎那点
northwolves 2006-03-31
  • 打赏
  • 举报
回复
估计是系统延迟给分了.上面很多三星兄弟,我何时才能到三星?
northwolves 2006-03-31
  • 打赏
  • 举报
回复
OF123兄弟,不必太计较吧.接着抢,呵呵
laviewpbt 2006-03-31
  • 打赏
  • 举报
回复
of123 () 他名字上那么多数字,当然在乎分数呢,呵呵
viena 2006-03-31
  • 打赏
  • 举报
回复
呵呵,of123 () 老哥也会为了点专家分着急啊~
faysky2 2006-03-31
  • 打赏
  • 举报
回复
楼上升星星了,是不是该发贴放分拉,^v^ ^○^
ZOU_SEAFARER 2006-03-31
  • 打赏
  • 举报
回复
人家发的是非技术区!
专家分不增加!!呵呵
lv1 2006-03-31
  • 打赏
  • 举报
回复
帮搂主申诉,顺便接分
加载更多回复(4)

741

社区成员

发帖
与我相关
我的任务
社区描述
VB 版八卦、闲侃,联络感情地盘,禁广告帖、作业帖
社区管理员
  • 非技术类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧