问题探究：
Dim r As Double, s As Double
r=Val(text1.text)
s=
Text2.Text=Str(s)
假如你所在的学校要举办“读书会”，请你做如下工作：从“傅雷、奥斯特洛夫斯基、老舍、罗曼一罗兰、凡尔纳、培根、养纳森·斯威夫特、夏洛蒂·勃朗特”等作家中选出一位，填写读书卡片。
书（篇）名：____ 作者：____
主要内容：____
